IEM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



512 9611 
1 



A01 a 



FILE CONTROL UNIT FLT SECTION 1 



t'ER LCC 



■JECT cod 1 ; 



ADDS STMT SOURCE STATEMENT 



OAOO 












3 


CLKSTP 


START 
DECK 


2560 

4 


OACO 


A014 






0A01 


4 




DC 


XL2' A014" 


0A02 


00 








0AG2 


5 




DC 


XL1 '00 ■ 


0A03 


00 








0A0 3 


5 


CNUM 


DC 


XL1 "OO" 


0A04 


cooo 






0A05 


7 




DC 


XL2 '0000' 


OA06 


0A1 


o 






0A07 


s 


RT1ADR 


DC 


AL2 (HTN1) 


CA08 










0A09 


9 




DS 


CL2 


OAOA 


A0 40 30 






CAOC 


10 


UNA 


DC 


XL3' A04000' 


OAOD 


3C1O00 






OAOF 


1 1 


UNB 


DC 


XL3 ■BOIOOO' 


0A10 


01 








0A10 


1 2 


RTN1 


DC 


XL1 '01 • 


0A1 1 


00 








0A1 1 


13 




DC 


XLV 00' 


GA12 


1BB0 






0A13 


14 




DC 


AL2 (RTN2-1) 


OAia 


C2 


01 


1A25 






15 




LA 


G0GUT.XR1 


0A18 


3C 


10 


12F2 






16 


SODS 


MVI 


EHAD-1.X 'r'O' 


0A1C 


31 


A4 


1493 






17 




LIO 


BESS.X' A4« 


0A20 


31 


A6 


149D 






18 




LIO 


ANNE,X' A 6' 


0A24 


OC 


27 


13ii0 


13B1 




19 




mvc 


YIPER(40) , BLANK 


0A2» 


3a 


01 


1A1D 






20 




ST 


END+3.XR1 


0A2E 


3C 


87 


121E 






21 




MVI 


0^'LY■^1,X•87 , 


0A32 


3C 


87 


0B5C 






22 




MVI 


FILET+1,X*87 • 


0A36 


3C 


FO 


152 1 






23 




MVI 


ALMS-a.X'FO' 


0A3A 


OC 


03 


1525 


1462 




24 




MVC 


ALMS (4) .TRUCK 


0A40 


30 


A 2 


12DB 






25 




SNS 


KNIT-2,X' A2« 


0a44 


39 


=>0 


12DA 






26 




TBF 


KNIT-3,X'50' 


0A48 


CO 


90 


0A5B 






27 




3F 


FIRS 


OA4C 


3d 


10 


12DB 






28 




TEN 


KNIT-2.X' 10' 


OA50 


CO 


10 


0A58 






29 




BT 


FIRS 


t \54 


CO 


87 


0A8 3 






30 




3 


PINT 


OA58 


OC 


1 


12C7 


144C 




31 


FIRS 


MVC 


GOUT+3 (2) , GAUDY 


0A5E 


OC 


02 


1B9 8 


1BA3 




32 




MVC 


MSK-1 (3) ,MSK2 


0A64 


3C 


00 


1BA5 






33 




MVI 


EXP.X'OO" 


0A68 


OC 


C6 


1BA4 


1BA5 




3 4 




MVC 


EXP-1 (7) ,EXP 


0A6E 


CO 


87 


1B52 






35 




b 


FAKE 


0A72 


CO 


87 


021E 






36 




3 


UNPACK 


0*76 


C3 








CA76 


37 




DC 


XLT03' 


0A7 7 


1BA0 






0A7 3 


3 8 




DC 


AL2 (EXP-5) 


0A79 


13 94 






0A7A 


39 




DC 


AL2 (VIPER-28) 


QA7B 


CO 


87 


1219 






40 




3 


TURN 


0A7F 


CO 


87 


1A1A 






41 




3 


END 


OA33 


OC 


Oi 


1FE4 


1UC7 




42 


PINT 


MVC 


ARNE + 3(4) ,MOPE 


OA39 


3C 





14EA 






43 




MVI 


ABNER-1 ,X'00' 


CAHD 


OC 


1 


0CD7 


14B5 




44 




MVC 


ETTA+2 (2) .MAY 


OAs 3 


35 


01 


1527 






45 




L 


MAX ,XR1 


0A97 


3C 


07 


1269 






46 




MVI 


STAR+1 .X'Q?' 


0A9B 


3l 


F1 


1521 






47 




MVI 


ALMS-4.X' F1 • 


0A9- 


OC 


03 


1525 


1462 




4b 




MVC 


ALMS (4) .TRUCK 


OAA5 


CO 


87 


0C9 8 






4 9 




2 


GNAT 


0AA9 


CO 


87 


0C39 






50 




B 


TRLST 


OAAD 


oc 


j! 


,2C7 


1B1F 




5 1 


RAPT 


MVC 


GOUT+3 (2) ,SAT 


OAB3 


35 


01 


16D0 






52 




L 


::ope,xri 


0AB7 


oc 


01 


0CD7 


14B7 




53 




MVC 


ETTri+2 (2) .NCR 


OABD 


OC 


i 


1525 


14 6 




54 




MVC 


ALMS(4) .TRUCK-2 


OAC i 


CO 


87 


13D^ 






! >5 




3 


BASS 


°'C7 


OC 


03 


1FEU 


14C8 




5 6 




MVC 


ARNE + 3 (4) .ROPE 


OA1.1 


CO 


87 


0C9 8 






57 




3 


GNAT 


OAD : 


co 


87 


0C39 






58 




B 


rsuST 


0AD5 


oc 


03 


1FE" 


143 3 




5 9 


RAFT 


MVC 


AHNE+3 (4) ,CCFE 


OADB 


co 


87 


0C39 






6 




T3 


TRUST 


OADF 


3 5 


01 


15C 3 






61 




1. 


f;N.XR1 


OAE3 


oc 


01 


0CD7 


14 B7 




62 




MVC 


ETTA*: (2) ,NOR 


0AE9 


oc 


j 


152 5 


1':6-> 




t ) 




MVC 


ALMS (4) .TRICK-2 


OAEF 


CO 


o7 


0C9 






f>4 




3 


GNAT 


OAF3 


CO 


87 


0C39 






6 5 




13 


TRUST 


0AF7 


oc 


i 


1 F E 4 


1 4C e 




<,h, 


HAST 


MVC 


ARNE* ) (4) , J v- "E 


OAFD 


oc 


01 


0CD7 


1 4 B D 




b ) 




MVC. 


ETTA*^ (2) ,PAT 


0E0 3 


3 5 


01 


1687 






h i 




L 


R0T.XP1 


307 


oc 


3 


15 2 5 


146C 




f. '* 




MVC 


ALMS (4) ,THICK-2 


ATF 


2.1AH70 


1 APR70 


Of-*. AY 7 


1JUL70 01HAK71 


EC NO. 


57 1512 


57 15' 


16 


i.715 


i ! 


5 71524 


5 7 .57 J 



PROGRAM ID 

FLAGS 

CURRENT ROUTINE NE 

RESERVED 

ADDB FIRST RTN 

UDT PRIMARY SPINDLE 
UDT SECOND SPINDLE 



SET UP NORMAL TERMINATION 
RESET ERROR COUNT 



ELANK EXP RESULT AREA 

SET UP FOR HEADING 

CONT STOP AFTER FIRST GROUP 

SET UP FOB 000000 HSG 

s::s 01 

TEST FOR INV REQ OR EQU CHK 

ER. IF EITHER 

CHECK FOR SEEK BUSY 



SET UP DONT CARE MASK 
SET UP EXP FIELD 

BH. TO AujUST EXPECTED BITS 
CONVEfT EXPECTED Sl'ATUS 



SET UP CTL FLD 
RESTORE CE BYTE TO 00 
RD ID SIO 

BESET PR MOD SH 
SETUP ROUTINE NUMBER 
ROUTINE 10 

GO TO TERMINATE OP 



READ DATA SIO 
ROUTINE 11 
SELECT HD 
SET UP CTL FLD 

GO TO TERMINATE OP 
SET UP CTRL FLD 



rfEAD DATA SIO 
ROUTINE 12 

GO TO TERMINATE OP 
SET UP CTL FLD 
WRITE DATA SIO 

ROUTINE 13 



PROG ID 
PAGE 



0A01-4 
1 



IBK MAINTENANCE DIAGNOSTIC PROGRAM 



PART SO. 
PAGE 



512961 1 
1 A 



A01U 



FILE CONTROL I— ' T H.T SECTION 1 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



OEOD CO 


87 


0C98 




70 




p 


GNAT 


OB11 CO 


87 


0C3 9 




71 




p, 


TRUST 


0B15 OC 


01 


12C^ 


131D 


72 


VASE 


rvc 


GOUT+3 (2) ,SATE 


03 1 B OC 


01 


0CD7 


.4B9 


7? 




R VC 


ETTA+2(2) .OPERA 


OB21 35 


01 


172F 




■"4 




L 


CAT,XR1 


OB25 OC 


03 


1525 


1472 


75 




MvC 


ALMS(4) ,THAT-2 


OB2B CO 


87 


13C4 




7b 




B 


BOSS 


OB2F OC 


03 


1FE4 


1499 


77 




MVC 


ARNE+3(U) .ABYSS 


OE35 CO 


87 


0C9 8 




78 




3 


GNAT 


OB39 CO 


87 


0C19 




79 




3 


TRUST 


OB3D OC 


03 


1FE4 


150C 


80 


iOFT 


M VC 


ARNE+ 1 (4) .TCNY 


QB43 OC 


01 


0CD7 


14 3F 


81 




MVC 


ETTA + ; (2) ,SET 


0B49 35 


01 


17C2 




8 2 




L 


TRCT.XB1 


034D OC 


03 


1525 


1478 


83 




MVC 


ALMS (4) .THEM-2 


OB53 CO 


87 


0C9 9 




84 




g 


GNAT 


OE57 CO 


87 


0C39 




85 




B 


TRUST 


OB5B CO 


87 


36 3 




86 


FILET 


3 


DELTA 


OB5l T CO 


87 


1A1A 




87 




3 


END 


OB63 OC 


03 


1PE4 


1499 


88 


DELTA 


MVC 


ARNE+3 (4), ABYSS 


0B69 3C 


F2 


1521 




89 




MVI 


ALMS-4,X'F2' 


OB6D OC 


03 


1525 


1462 


90 




MVC 


ALMS (4) .TRUCK 


0B73 "C 


01 


0CD7 


14B9 


91 




SVC 


ETTA+2(2) .OPERA 


0B79 35 


01 


189" 7 




92 




L 


BLCB.XR1 


OB7D 3C 


80 


14EA 




93 




MVI 


ABNER-1.X' 80' 


CB81 CO 


87 


0C98 




94 




3 


GNAT 


f B85 3C 


00 


14SA 




95 


DOUGH 


MVI 


ABNEB-1,X' OO 1 


0fc89 CO 


87 


0C39 




96 




B 


TRUST 


OB8D OC 


03 


1FE4 


149 ! 


97 




MVC 


ARNE + 3 (4), SOAP 


OB9 3 3C 


00 


1FDF 




9M 




MVI 


3ARN+255.X 'OC 


0B97 OC 


FE 


1FDE 


1FDF 


9-« 




MVC 


BARN+2S4 (255) ,3A 


0B9D 3C 


1 1 


1EE0 




100 




MVI 


BAHN.X* 11' 


OBA1 3C 


FF 


1EF4 




101 




MVI 


BARN+20 ,X'FF' 


0BA5 OC 


OB 


1EF3 


IEF4 


102 




MVC 


BARN + 19 (12) ,BARN 


OEAB OC 


03 


1525 


1U66 


103 




MVC 


ALBS (4) .TRICK-2 


OBB1 OC 


01 


0CD7 


14ED 


1 04 




MVC 


STTA+2 (2) ,RAT 


0BB7 35 


01 


18B8 




105 




T 


BLCT,XR1 


OEEB CO 


87 


0C98 




106 




3 


GNAT 


OBBF CO 


87 


0C39 




107 




3 


TRUST 


0BC3 OC 


3 


1FE4 


1491 


108 


SOLAR 


MVC 


ARNE + 3 (4) ,SCAF 


0BC9 OC 


03 


1525 


146C 


109 




MVC 


ALMS (4) ,THICK-2 


OBCF OC 


01 


0CD7 


14C1 


110 




MVC 


ETTA + 2(2) .TAP 


0BD5 35 


01 


1921 




111 




L 


BLAB.XR1 


OBD9 CO 


87 


0C98 




112 




n 


GNAT 


ORDD CO 


87 


0C39 




113 




3 


TRUST 


OBE1 OC 


03 


1FE4 


1491 


114 


SOUND 


MVC 


ARNE + 3 (4) .SOAP 


OBE7 OC 


3 


1525 


147 2 


11 5 




MVJ 


ALMS (4) .THAT -2 


OBED OC 


01 


0CD7 


14C3 


1 16 




MVC 


ETTA+ . (2) ,V IE 


0BF3 3 5 


01 


1967 




11"/ 




T_ 


BRAN.XR 1 


0BF7 CO 


87 


0C9 8 




1 1t> 




3 


GNAT 


OBFB CO 


87 


0C39 




119 




3 


TRUST 


OBfF OC 


03 


1FE4 


14 91 


120 


NOLA 


MVC 


ARNE + 3 (4) .SCAT- 


0C05 OC 


03 


1525 


1478 


121 




MVC 


ALMS (4) .THEK-2 


OCOB OC 


01 


0CD7 


148D 


122 




MVC 


ETTA+2 (2) .LAP 


OC11 35 


01 


19AD 




12 3 




L 


BIRD.XR1 


0C15 CO 


87 


0C98 




124 




3 


GNAT 


OC19 CO 


87 


0C3 9 




125 




3 


TRUST 


OC1D OC 


03 


1FE4 


14 '6 


126 


ERAND 


MVC 


ARNE+3 (4) , PASS 


0C2 3 OC 


01 


0CD7 


143? 


127 




MVC 


ETTA + 2(2) .PINE 


0C29 35 


01 


19D7 




12a 




T 


HAND.XR1 


OC2D CO 


87 


0C98 




129 




3 


GNAT 


OC31 CO 


87 


OC 3 9 




1 10 


VIRG 


3 


TRUST 


0CJ5 CO 


87 


1A1 A 




1 31 




a 


END 










1 12 


*******g 'JTINE TC TERMINATE 


0C39 34 


08 


0C67 




1 1 i 


TRUST 


.">\ 


TRYST*3,X' Ch' 


OC ID CI 


A2 


0C-. 8 




134 




no 


CRUST, X ' A2 ' 


oc4 \ n 


A 1 


14EE 




1 3 5 




l:o 


A3NEF.X' A3 ' 


0C45 F3 


A1 


01 




1 16 




S 10 


X'01 ' ,X'A1 ■ 


oc48 n 


A3 


H95 




1 17 


CRUST 


LIO 


CORD.X' A!' 


DATE 02MAR70 


01 APR70 


O6MAY70 


01JUL7O 01I1AR71 


EC »;•>. 5 ; 


15 12 


5 7 1 5 1 o 


571513 


57 15 24 


571573 



GO TO TERMINATE OP 

MOVE HEAD DIAG SIO 

SET UP PARA ADDR 

POUTINE 14 

SELECT HD 1 

MOVE READ DATA DIAG CTL FLD IN 

GO TO TERMINATE OP 
WRITE ID i.J. 



ROUTINE 15 

GO TO TERMINATE OP 



READ DIAG CTRL FLD 

SET UP ROUTINE NUMBER 

ROUTINE 20 

READ r>IAG SIO 

ADDR OF PARA 

SET INDEX 3EFOHE 510 

RESIORE CE 3YTE TC 00 

SET UP CTRL i'L3 
CLEAR DATA FLD 
RN+255 

SET UP DATA CHAR 

+20 SET UP DATA FLO FOR WR AND SCAN 
FOUTINE 22 
WRITE D.VH SIO 
ADDR OF PAR* 



SET UP CTRL FLD F0 n SCAN SQ LO 
ROUTINE 23 

SCAN EQ LO SIO 
ADER OF PARA 



SET UP CTRL FLD FOP SCAN EC. HI 
ROUTINE 24 
SCAN EQ HI SIO 
ADDR OF PARA 



SET UP CTRL FLD FOR SCAN Eg 
ROUTINE 25 
SCAN EQ SIO 
ADDR OF PARA 



SET UP CTRL FLD 

SET UP SIO REAL VERIFY 



AN OPERATION****************** 
STl^E RETURN 
SEST FOR BUSY 



NOT INDEX 



PROG ID 0A01--4 

PAGE 1 A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129611 

2 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERR LOC 


OBJECT 


' CODE 




ADDR 


STMT 


SOURCE 


STATEMENT 


0C4C 


31 


A3 


0C69 






138 




LIO 


YORE,X' A3" 


CC50 


CI 


A2 


0C51' 






139 




TIO 


r RUSH.X' A2 ' 


0C54 


CO 


87 


0C64 






140 




3 


TRYST 


0C58 


31 


A3 


1495 






141 


CRUSH 


LIO 


CORD,X» A3* 


0C5C 


n 


A3 


0C69 






142 




LIO 


YOBE,X 'A3' 


0C6 


CI 


A2 


0C6A 






14"' 




TIO 


3R0SH,X' A2' 


GC6U 


CO 


87 


0C64 






1 44 


TRYST 


3 


TRYST 


0C68 


8000 






0C69 


145 


YORE 


DC 


XL2" 6000' 


0C6A 


3D 


07 


121E 






146 


"RUSH 


CLI 


ONLY + 1. X '07' 


0C6S 


F2 


01 


OS 






147 




JNE 


FEE 


0C71 


CO 


37 


021A 






148 




3 


PWINT 


0C75 


06 08 






0C76 


149 




DC 


XL2' 0608' 


0C77 


0C97 






0C7 8 


150 




DC 


AL2 (FRESH) 


0C79 


F2 


87 


OA 






151 




J 


DUN 


0C7C 


CO 


8 7 


021A 






152 


FEE 


3 


PRINT 


oc?o 


C6 








0C80 


153 




DC 


XLTC6' 


0C81 


OS 








0C81 


154 




DC 


XL1 'OB' 


0C82 


0C97 






0C83 


155 




DC 


AL2 (FRESH) 


0C34 


A0 9 3 






CC85 


156 




DC 


XL2» A093' 


0C«6 


co 


87 


0222 






15"- 


DUN 


3 


HALT 


OC^A 


A093 






0C8B 


158 




DC 


XL2'A093« 


0C8C 


CO 


67 


0C3D 






159 




3 


TRUST +4 


0C9O 


t 0D9C5C64B40F1F0 


CC97 


160 


?8E5H 


DC 


CL8' REF- 10' 


0C93 


34 


08 


12C7 






161 


CVAT 


ST 


SOUT+3,X'08' 


0C9C 


31 


A6 


149D 






1o2 




LIO 


ANNI ,X' A6" 


OCAO 


31 


A4 


1493 






163 




LIO 


BESS , X' A4 > 


0CA4 


3C 


37 


0F1 B 






164 




MVI 


RINK .- l,X'd7' 


OCAS 


3C 


07 


0F5F 






165 




MVI 


FOES+1,X'0 7' 


OCAC 


3C 


07 


10D0 






•.66 




M VI 


E0N+1.X ' 07 • 


OC30 


3C 


07 


0F53 






167 




MVI 


ZONE+1,X'07 • 


0CB4 


3C 


07 


0DC8 






168 




MVI 


DLYSW+1,X' 07' 


0CE8 


- 1 


A3 


14EB 






169 




LIO 


ABNER.X "A3 • 


OCBC 


CI 


A2 


0CC3 






V70 




TIO 


FAULT, X«A2 • 


OCCO 


F2 


87 


12 






171 




J 


ETTA 


0CC3 


oc 


1 


12C7 


1455 




172 


FAULT 


MVC 


GOUT*3(2) ,SAND 


0CC9 


3C 


D5 


138A 






173 




MVI 


VIPER-38,C« N" 


OCCD 


CO 


87 


1219 






174 




3 


TURN 


OCD1 


CO 


87 


1A1A 






175 




B 


END 


0CD5 


F3 


00 


00 






176 


ETTA 


SIO 


X'OO • ,X "GO* 


0CD8 


1C 


04 


14DD 


04 




177 


PANDA 


MVC 


PAY+4 (5) ,4 (,XP1) 


OCDD 


OC 


27 


1330 


1331 




178 




MVC 


VIPER(40) , RLASK 


0CE3 


06 


1 1 


1525 


148B 




179 




AZ 


ALMS (3) ,TEN (2) 


0CF9 


3 8 


02 


14D9 






180 




TEN 


FAY,> '02' 


OCED 


CO 


90 


0DC1 






1 31 




3F 


AMILE 


OCF1 


38 


01 


14D9 






182 




TEN 


FAY.X'O V 


0CF5 


F2 


10 


98 






183 




JT 


PEER 


0CF6 


3D 


7A 


14D9 






184 




CLI 


FAY,X'7A' 


OCFC 


F2 


84 


91 






185 




J II 


PEER 


OCFF 


OC 


01 


ODOE 


0D10 




186 




MVC 


STAND + i (2) , STALL 


OD05 


OE 


01 


ODOE 


14D9 




187 




ALC 


STAND* 3 (2) ,FAY 


ODCB 


CO 


87 


0D12 






• 88 


STAND 


E 


STALE 


ODOF 


0D12 






0D10 


ia) 


STALL 


DC 


AL2(£TALE) 


OD11 


0000 






0D12 


190 


STALE 


DC 


XL2 'OOOO' 


OD13 










0D13 


191 




£:> 


CLI 


0D14 


CO 


87 


0E5E 






V-2 




3 


PPOD 


0D18 


co 


8 7 


0E79 






19 3 




B 


3ANA 


OD1C 


co 


67 


0E98 






194 




3 


CHERI 


0D20 


CO 


87 


0E37 






195 




3 


FACT 


0C:!4 


co 


87 


0EC7 






196 




3 


TACT 


0D2 8 


CO 


e.7 


OECF 






197 




3 


CAPE 


0D2C 


CO 


67 


OEEA 






198 




3 


TRACT 


0O30 


CO 


87 


1011 






199 




3 


WORK 


OD34 


CO 


87 


1019 






200 




3 


S HARK 


OD 58 


CO 


8 7 


1062 






201 




n. 


SALT 


0D3C 


CO 


87 


106A 






2 02 




B 


SAINT 


0D4O 


CO 


87 


1074 






201 




3 


FOOD 


0D44 


CO 


87 


0D9O 






204 




3 


PEER 


0D48 


CO 


• 7 


0D90 






20 5 




3 


PEER 


DATE 


OzHAR 


70 


01 APR 7 


06MAY70 


01JUL70 01MAR71 


EC NC. 


57 15 12 


57 1516 


571513 


571524 


57 157 3 



FORCE INDEX IN CE MODE 
SEiT FOB BUSY 

NOT INDEX 

FORCE INDEX IN CE MODE 

SEST FOR BUSY 

R^URN 



STORE RETURN FOR ERROR PRiNT 

SET OP DFCR 

SET UP DFDR 
RESET TEST FOR BUSY ERR SW 
RESET SW 

SET PR SNS SW OFF 
RESET DATA FLD SW 
SET DELAY SW OFF 
FORCE CE MODE 



START I/O IS SET UP BEFORE EXECUTION 
MOVE PARA TO WORK AREA 

ADD ONE TO NSG CNTR 

GO TO LIO ROUTINE 
IS THIS A 3AD PARA 



RESET BRANCH ADDRESS TO ORIG VALUE 
ACE PARA TO ERANCH TO ADDR 



COMP CTL FLD 

COMP DFDR 

COMP DFCR 

GO TO ALT PARA 

KTN TO MAJOR PARA 

COMP DATA CHAR 

DATA CHAR ROUT IN E 

INL-EX INITIALIZE 

SET 8 INITIALIZE 

RESET DFDR 

CuMP BUSY AND ERROR 

TEST SENES PROBES 



PROG ID 
PAGE 



0A01-4 

2 



IBK MAINTENANCE DIAGNOSTIC PROGRAM 



PABT NO. 
PAGE 



512961 1 

2A 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERR LOC C8JECT CODE 



ADDS! STMT SOURCE STATEMENT 



0~4C 


CO 


87 


10A1 




206 




B 


FLAT 


0D50 


CO 


87 


110A 




207 




3 


ANTE 


0D54 


CO 


37 


1 112 




208 




B 


AMP 


0D58 


CO 


87 


11 16 




209 




3 


SHOP 


0P5C 


CO 


87 


112E 




210 




B 


Si H ELK 


0D60 


CO 


87 


1 138 




211 




3 


STAT 


0D64 


CO 


87 


1 16" 




212 




B 


VARY 


0D68 


CO 


87 


1 177 




213 




3 


WARY 


0D6C 


co 


87 


1 183 




214 




3 


MINE 


OD70 


co 


87 


1 18B 




215 




R 


TINE 


0D7U 


CO 


87 


1 193 




216 




n 


WIRE 


0D78 


CO 


87 


11 ,B 




217 




3 


WIRY 


0D7C 


CO 


87 


1 1A3 




218 




3 


MINT 


OD80 


CO 


87 


1 1A3 




219 




3 


SINE 


0D84 


CO 


87 


1 1B9 




220 




3 


LINT 


0D88 


co 


87 


11C5 




221 




3 


ACRID 


0D8C 


CO 


87 


1 1D5 




222 




3 


POOR 


0D90 


CO 


87 


021A 




22i 


PEER 


B 


PRINT 


0D94 


C6 






0.094 


224 




DC 


XLVC6' 


0D95 


1D 






0D95 


225 




DC 


IL1 '29< 


0D96 


ODCO 




0D9 7 


226 




DC 


AL2 (BDPARM) 


0D98 


AOCF 




0D9 9 


,'2 7 




DC 


XL2'A0CF' 


0D9A 


CO 


87 


0222 




22 8 




3 


HALT 


0D9E 


AOCF 




0D9F 


229 




DC 


~L 2' AOCF' 


ODAO 


CO 


87 


1A25 




230 




3 


GOCUT 


0DA4 


D7D9D6C7D9C17440 ODCO 


231 


BDr>ARM 


DC 


CL29' PROGRAM 


OCAC 


C5D9D9D6D94CbC40 


231 








0D84 


C2C1C44CD7C 


MD9C1 


231 








ODBC 


D4C1E3C5D9 




231 


















232 


********** 


S'JB ROUTINE TO 


0DC1 


oc 


OO 


132'.: 


14DA 


233 


AMILE 


MVC 


ANDY(1) ,FAY + 1 


ODC7 


CO 


87 


ODrB 




234 


DLY SW 


B 


ERGO 


ODCB 


oc 


OO 


14 EC 


14L9 


235 


FANCY 


MVC 


ELLA-1 (1) ,FAY 


0DD1 


31 


A3 


14ED 




23b 




LIO 


ELLA, X' A3' 


0DD5 


OF 


OO 


1325 


1502 


237 




SLC 


ANDY (1) ,ONE 


0DD3 


CO 


01 


0DC7 




23 8 




3KZ 


DLYSW 


ODDF 


co 


87 


ODEF 




239 




E 


ADV2 


ODE3 


36 


01 


1502 




240 


A 07 5 


A 


0NE.XR1 


0DE7 


36 


01 


1502 




241 


ADV4 


A 


0NE,XR1 


ODEB 


36 


01 


1502 




24 i 


ADV3 


h 


0NE,XR1 


ODEF 


36 


01 


7 502 




24 ! 


Ai^/2 


i\ 


0NE.XR1 


ODF3 


36 


01 


1502 




244 


ADV 1 


h 


0NE.XR1 


0DF7 


CO 


87 


0CD8 




245 




3 


PANDA 












246 


*< *:-**** + » 


SUBROUTINE FOR 


0DF3 


OC 


02 


14F6 


14F5 


247 


ERGO 


MVC 


BEIGE(3) ,TAN 


0E01 


OF 


02 


14F6 


1502 


248 


ENGO 


.SLC 


BEIGE (3) .ONE 


OE07 


CO 


01 


E01 




249 




BNZ 


ENGO 


OEOB 


CO 


87 


ODCB 




250 




B 


FA^CY 












251 


****** 


SUBROUTINE 10 COMP 


OEOF 


in 


08 


0E4D 




2 52 


DANTE 


ST 


PGRT+3,X'08 • 


0E13 


3C 


00 


151A 




253 




MVI 


ANNA.X' 00' 


0E17 


C1 


AO 


0E4E 




254 




TIO 


AVA,X' AO • 


0E1B 


C1 


A2 


0E56 




255 


CART 


TIO 


BETH,X' A2' 


OE1F 


3D 


00 


151A 




256 


DART 


CLI 


ANNA.X'OO ' 


OE23 


CO 


81 


•)E4A 




257 




DE 


PGRT 


0E27 


3C 


D5 


i 3 8C 




258 




MVI 


VIPES-36,C« a> 


0E2B 


id 


D5 


n 3 a 




2 59 




MVI 


VIPER-3H,C« N ' 


0E2F 


Jt 


01 


0E20 




2bO 




TBN 


DART+1 ,X'0 1 ' 


O^Jj 


F '. 


90 


04 




261 




JF 


VIC 


OE36 


JC 


F8 


1 38C 




262 




MVI 


VI?ER- < J,C Y • 


0E3A 


ja 


10 


0E20 




26 i 


VIC 


TBN 


DART+ 1, X' 10' 


0E3E 


CO 


90 


1219 




264 




3F 


TURN 


0E42 


3C 


EH 


I.J 8 A 




26 5 




MVI 


VIPER- 38, C Y ' 


0E46 


CO 


8 7 


1219 




266 




3 


TURN 


0E4A 


CO 


J 7 


"EUA 




2 67 


PGRT 


B 


PGRT 


0E4E 


>A 


M 


* 5 1 A 




268 


AVA 


S3N 


ANNA,X'0 1 ' 


0E52 


CO 


61 


E 1 B 




269 




B 


CART 


0E56 


3 A 


10 


1 r >U 




270 


BETH 


SBN 


ANNA, X' 10 ' 


DATE 


02MAR1 


'0 


01AFR70 


06MAY70 


01JUL70 01MAR71 


ZC NO. 


57 15 1. 


) 


571516 


'."•1513 


5 7 15 24 


5 7157 I 



A-M ROUTINE 

SET N TO 

END OF ROUTINE HALT 

256 WR OSC TIMES CNT 

Bfi TO NEW ROUTINE 

STATUS ROUTINE 

SET WR OSC BIT ON SER DATA ROUTINE 

SET WR OSC 3IT OFF SSR DATA ROUTINE 

SET SENSE BY 3IT 

SET SENSE BY BYTE 

SET SEP CLK OFF SER DATA ROUTINE 

SET SEP CLK ON SER DATA ROUTINE. 

SERIALIZE DATA CHAR WITti SENSF 

SERIALIZE DATA CHAR SENSE AND CCKP 

GO TO SCAN FND TOUTINE 



ERROR - BAD PARAMATSR' 



CONTROL EY BIT ******** 

SET PARA CNT IN PARA CNTR 

DELAY SWITCH 
HOVE PARA CHAR TO CE LIO 
CE LIO 

SU3T ONE FROM PARA CNT 

CONTINUE UNTIL 



GO GET NEXT PARA 
DELAY ********************* 
DELAY COUNTER 



BUS? AND ERROR 



********* 



COflP BUSY AND ERROR 
TEST BUSY 



SEE IF ERR EXP 

BR. IF NOT 

-SEE IF BUSY EXP 

BR. IF NOT 



SET IND FOR ERROR 
SET IND FOR BUSY 



FROG 
PAGE 



ID 



0A01-4 
2A 



IEK MAINTENANCE DIAGNOSTIC PROGRAM 



AC1 4 



FILE CONTROL UNIT FL1 



SECTION 1 



PART NO. 
PAGE 



5129611 
3 



EF? LOC OBJECT CODS 
05SA CO 87 OE'IF 



ADDR S^MT SOURCE STATEMENT 



0E5E 
l!E64 
OE6L 
0H6C 
OE6D 
S6F 
771 
0E7S 

os^g 

0E7D 
0ES2 
OE87 
0S8B 
0E8C 
0E8E 
0E90 
0E94 

0E98 
0E9C 
0EA2 
0ZA6 
OEAA 
0EA3 
OEAD 
OEAF 
CEB3 

CEB7 
0EB3 
OEBF 
0EC3 

0EC7 
OEC'3 

OECF 
0ED5 
0FD9 

OEDD 
OEDE 
OEEO 
0SE2 
0EE6 

OEEA 
OEFO 
OEF& 
OEFA 
OEFE 
0FC4 
OF08 
OFOB 
OFOF 
0F13 
0F17 
0F1A 
0F1E 
0F24 
0F2B 
0F2C 
0P3 
0FS4 
OF J 8 
F 3 E 



OD 03 
CO 81 
CO 87 
04 

"UDD 
1 3 AO 
CC 87 
CO 67 



A '4 
01 
81 
87 



30 
OD 
CO 
CO 
02 

UDB 
13 AC 
CO 37 
CO 87 



AG 
1 
81 
67 



30 

OD 

CO 

CO 

02 

14D8 

13A6 

CO 87 

CO 87 



IF Ei< 
0DE3 
021E 



12 19 
ODE 3 

1513 
1513 

CDEB 
021E 



1219 

0DE5 

1515 
1515 

0DE3 
021E 



121 Q 
ODEB 



36 01 150E 

34 01 1519 

3 5 01 14DB 

CO 8 7 0CC8 



35 
CO 



01 

87 



OD 00 

CO 81 

CO 87 
01 

14DA 
13 BO 

CO 87 

CO 87 

OC 00 

QC 

3C 64 

3C 4'* 

OC 2 

38 08 

F2 90 

3B 04 

3B 04 

38 01 

F2 90 

CO 8 7 

OF 00 

CO 01 

3C 37 

3C 7 

3C 07 

CO 87 

OE 03 

3 8 1 



1519 

0CD8 

1SE0 

ODEF 
C21E 



1 7 . 9 
ODE" 

1325 

14D2 

151D 

151F 

14D1 

14D0 

03 

15 1D 

151F 

14CF 

1E 

020F 

13 25 

OEFO 

0F1B 

0F5F 

0F5R 

ODEB 

14?2 

';< D1 



14DD 



0E6C 

0E6E 
OS70 



14D3 



0E8B 
QL'SD 
0E8F 



14D3 



OEAA 
OEAC 
OEAE 



14DA 



OEDD 
^EDF 
0EE1 



1 4D3 
14DA 



150 3 



.02 



14D2 



271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
29 2 
293 
294 
295 
296 
297 
29L 
299 
> 10 
3)1 
_ )2 
303 
304 
305 
306 
3 07 
303 
309 
310 
31 1 
312 
313 
314 
315 
316 
317 
318 

31 9 
320 
321 
322 
323 
3 24 
325 
326 
327 

32 8 
329 
3 30 
331 
332 
3 i 3 
334 
3 35 
3 3 6 
3 3 / 
3 38 



3 DART 
****** SUBROUTINE TO COMP 

PROD CLC A3NE + 3(4),FA 

BE ADV5 

3 UNPACK 

DC XLI'04' 

DC AL2(FAY+4) 

DC AL2 (VIPER- 1b 

3 TURN 

3 ACV5 
****** SUBROUTINE TO COMP 

SANA SNS 3R0AD,X'A4' 

CLC BROAD (2), FAY 

BE ADV3 

B UNPACK 

DC XLI'02' 

DC AI.2 (FAY+2) 

DC AL2 (VIPER-4) 

B TURN 

3 ADV 3 
****** SUBROUTINE TO COMP 

CBf;PI SNS TO£D,X*A6" 

CLC TOAD(2) ,FAY* 

BE ADV3 

3 UNPACK 

DC XL1»C2= 

DC A\ i(F-\Y + 2) 

DC AL2 (v ,;pLfi-10 

3 TUtJN 

3 ADV? 
SUBROUTINE '^C GO 

THREE, XR1 

ST ALTAR,X81 

L FAY+2, XR1 

3 I'ANDA 
SUBROUTINE TO RTN 

L ALTAR.XR1 

B PANDA 
SUBROUTINE TO COMP 

CLC EARN (1 ) ,FAY + 

BE ADV2 

3 UNPACK 

DC XL 1*01 ' 

DC AL2(FAY+1) 

DC Ai.2 (VIPER) 

B TURN 

B ADV2 
****** SUBROUTINE TO DAT* 

TRACT .1 -Z ANDY(1),FAY+ 

PART 1VC CAR EA (',) ,FAY 

ORE MVI CLK1-1,X«64' 

MVI FFTE-1,X'44' 

MVC CAREA- 1(3) ,0 

STONE T3N CAREA-2,X*08 

.IF RACY 

SBF CLK1-1,X«04' 

SBF FET£-1,X'04" 

RACY TSN CAREA-3,X'01 

.IF BRACT 

PINK 3 DANTE 

SLC ANDY (1) ,0NE 

BNZ PART 

MVI R I N K + 1 , X ' d 7 " 

MVI FOES+1 ,X'07" 

MVI ZONE+1 , X» 7' 

3 ADV 3 

BRACT ALC CAREA (4), CAR 

TBN CAREA- 1,X ■ Oi 



ARE 
Y+4 



CTL FLD ********** 

COHP CONTROL FIELD 



AR5 
♦ 2 



DFDR 



********* 



SENSE DFDR 
COMPARE TO PARA 



DFCF, 



******* ** 



CHECK DFCR 

BRANCH TO ADD 3 TO PTR 



****** 
FACT 



****** 

TACT 

****** 
CAPS 



TO ALT PARA 



TO MAJOR PARA 



********* 



********* 



ARE DATA CHAR ********* 

1 CCMP DATA CH..8 

BRANCH TO ADD 2 TO PTR 



CHAl 
2 

+ 1 



NE+1 



EA 



********* 



RDSET CLOCK LIO BYTE 
RESET DATA LIO BYTE 

IS THIS BIT RING 1 

RESET INH DATA CYCLE REQ 

RESET INH DATA CYCLE HEQ 
IS THIS BIT RING 6 



RESET SNS PROBES I 
RESET DATA FLD SH 

SHIFT BITS 



DATE 02MAR70 
EC NO. 571512 



01 APF7C 
5 71516 



06MAY70 
5 7 15 13 



01JUL70 
571524 



01MAR7 1 
571573 



PROG ID 

PAGE 



0A01-4 
3 



IBH MAINTENANCE DIAGNOSTIC PROGPAM 



PABT NO. 

PAGE 



5129611 
3A 



A014 



FILE CCNTRCL UNIT I'LT SECTION 1 



ERR LOC OBJECT CODE 



AEDR STMT SOURCE STATEMENT 



OF42 


CO 


90 


0F4E 


339 




3F 


RACE 


OFU6 


3 A 


08 


151 F 


340 




5BN 


'■ETE-'i.X' 08' 


0F4A 


CO 


87 


0F52 


341 




3 


TRACY 


0F4E 


3B 


06 


151F 


342 


RACE 


SBF 


FETE-1.X' 8' 


0F52 


31 


A3 


151E 


343 


TRACY 


LIO 


CLKI.X' A3' 


OFJ6 


31 


A3 


1520 


344 




LIO 


FETE, X' A3' 


0F5A 


CO 


87 


0FD5 


341: 


ZONE 


£ 


BWANA 


OF5E 


co 


87 


0FF9 


346 


FOES 


3 


GALA 


0F62 


CO 


87 


CF04 


347 


LACY 


3 


STONE 


OF66 


38 


80 


OFFA 


348 


FROG 


T3N 


GALA+1.X' 60' 


OF6A 


F2 


10 


12 


349 




JT 


SNAG 


0F6D 


38 


20 


14E2 


350 




T3N 


ART-7,X' 20' 


OF7 1 


F2 


10 


13 


351 




JT 


SMOG 


0F74 


38 


20 


14E3 


352 




T3N 


ART-6,X' 20' 


0F78 


F2 


10 


OC 


<d3 




JT 


SMOG 


OF7B 


CO 


87 


I0D3 


354 




3 


ANT 


0F7F 


CO 


87 


0F87 


355 


SNAG 


3 


3 H OG 


OF83 


CO 


87 


10D3 


356 




5 


ANT 


0F87 


34 


08 


0FB3 


35" 


SKOG 


ST 


GAS+i,X'08 • 


0F8B 


36 


01 


1502 


358 


FRUIT 




0NE,XR1 


0F8F 


06 


31 


1481 146B 


359 


BRUTE 


AZ 


CSUX{5) ,TEN(2) 


OF95 


3 


A3 


12DD 


360 




SNS 


KNIT, ••' A3' 


OF99 


3C 


EO 


13 99 


361 




.IV I 


MSK,X 'EO' 


Of 9D 


1C 


00 


13A C 02 


362 




SVC 


EXP(1) ,2(,*R1) 


OFA2 


CO 


87 


1B52 


ie^ 




B 


FAKE 


0FA6 


OD 


00 


1BA * 12DD 


364 




CLC 


EXP-4 (1; , KNIT 


OFAC 


CO 


01 


OFCO 


365 




ENE 


YELP 


OFFO 


3C 


07 


0F13 


366 




.IV I 


RINK+1,X '07 • 


0F64 


CO 


87 


OSOF 


367 




3 


DANTE 


0FB8 


CO 


8 7 


0FB8 


36 8 


■:; A s 


3 


GAS 


OFBC 


CO 


87 


0F62 


369 




3 


LACY 


OFCO 


34 


08 


0FD4 


370 


YELP 


.'JT 


KELP+3,X'08' 


0FC4 


co 


87 


021E 


37 1 


EPOUT 


3 


UNPACK 


0FC3 


01 




CFC6 


372 




DC 


XL1 '01 ' 


OFC9 


13A1 


OFCA 


373 




EC 


AL2 (EXP-4) 


OFCB 


13' 


?6 


OFCC 


374 




DC 


AL2 (VIPER-26) 


OFCD 


CO 


87 


1219 


375 




3 


TURN 


0FD1 


CO 


87 


0FD1 


37f. 


KELP 


B 


KELP 


0FD5 


3 8 


08 


14D0 


377 


3WAN\ 


UN 


CAREA-2,X'0d • 


OFD9 


CO 


10 


0FE1 


378 




BT 


CRIME 


OFDD 


CO 


87 


0F62 


379 




3 


LACY 


0FS1 


31 


A4 


149B 


380 


CRIME 


LIO 


BESS.X' AH' 


0FE5 


3C 


1 1 


1EE0 


3 81 




MVI 


SARN,X' 1 1 ' 


OFE9 


CO 


87 


0FF1 


382 




3 


RU B E 


FED 


CO 


87 


0F62 


383 




3 


LACY 


OFF i 


34 


8 


OFBB 


384 


RUBE 


5T 


GAS +3, X' 03' 


OFF5 


CO 


87 


0F8F 


3 85 




A 


BRUTE 


0FF9 


CO 


87 


1009 


186 


GALA 


3 


SKOG 


OFFD 


38 


08 


14D0 


387 




T3N 


CAREA-2,X • 06 ' 


1001 


CO 


10 


0F87 


338 




3T 


SMOG 


1O05 


CO 


87 


OF 6 2 


389 




3 


LACY 


1 009 


co 


87 


0F87 


390 


SKOG 


3 


SMOG 


10CD 


JO 


8 7 


0T62 


391 




3 


LACY 










392 


****** 


3UB3i 


OUTINE TO INITIALIZE 


1011 


3C 


CO 


14 EE 


3 93 


«ORK 


a VI 


BELL-1 ,X«C0 ' 


1 015 


:o 


87 


101D 


394 




3 


YORK 










395 


****** 


SUBROUTINE TO INITIALIZE 


1019 


3C 


'4 


14EE 


396 


SHARK 


MVI 


BELL-1 ,X '40 ' 


101D 


30 


A3 


12DD 


397 


YORK 


SNS 


KNIT, > 'A3' 


1021 


3C 


02 


1BA5 


398 




MVI 


EXP,X '02' 


1025 


3C 


FD 


1B99 


399 




MVI 


HSK,X' FD' 


1029 


CO 


87 


1B52 


400 




B 


FAKE 


102D 


3h 


02 


12DD 


:;01 




TBN 


KNIT, X' 02* 


10)1 


CO 


10 


ODr 3 


402 




BT 


AD VI 


1035 


31 


A3 


1-.EF 


403 




LIO 


3ELL.X' A3' 


1039 


30 


A 3 


120D 


404 




SNS 


KNIT.X' A3' 


103C 


3C 


02 


13A5 


405 




MVI 


EXP,X» 02' 


1041 


3C 


FD 


13 99 


406 




MVI 


KSK.X'FD' 


DATE 


02MAR70 01aPR70 


6HAI 


70 


01JUL70 01MAR71 


EC NO. 


57 1512 57 1516 


5715 I 


3 


57152' 


'•: 57 157 3 



CE LIO CLOCK 

CE LIO DATA 

LATA FLD CHAR 

SWITCH TO ALLOW FROBL SENSE 

SNS AT LIT RATE 



STORE RETURN 

ALL I TO CTR 
SENSE PR03ES 
SET UF DONT CARE MASK 

BR- TO ADJUST EXPECTED BITS 
COMPARE ADJUSTED SENSE PROBES 



CONVERT EXPECTED PI-.C3E5 



IS THIS BUT RING 



RESET DFDP. 



;TCR£ RETUP.M 



IS THIS 3UT SING 



NDi. X 



SE1 TO 8 



********* 



********* 



jENSE PROBES 

SET UP EXPECTED FIEi.D 

SET UP DONT CAR.2 B^TS 

ER. TO ADJUST EXPECTS. 7 ) BITS 

TEST FOR BIT RING C 

WRITE OSC 

SET UP EXP FIELD 

SET UP DONT CARE BITS 



F .00 ID 

r ge 



OA01-4 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PABT NO. 

PAGE 



5129611 

4 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERF LOC OBJECT CODS 



ADDR STMT SOURCE STATEMENT 



1045 
1049 
1 -' ■ E 

1051 
1055 
1056 
1058 
105A 
1C5E 

106 2 
1066 

106 A 
1070 

1074 
1 078 
107E 
1082 
1086 
108C 
1090 
1094 
1095 
1097 
1099 
109D 
", 0A1 
10A7 
10AD 
10E3 
10B9 
10EF 
10C3 
10C7 
10CB 
10CF 
10D3 
10D7 
10DA 
10DE 
10E1 
10E4 
10E8 
10EC 
10F0 
1CF4 
10F8 
10FE 
1 102 
1 1 C6 

110A 
1 10E 



3 7 
2 
10 
87 



CO 
3 8 
CO 
CO 
01 

13A1 
1396 
CO 37 
CO 87 



31 

CO 

oc 

CO 



A4 
37 

00 
87 



30 
OC 
3C 
CO 
OD 
CO 
CO 
01 

.Pal 
1 396 
CO 3 7 



A3 

7 
FE 
37 
00 
31 
&-> 



1B52 
12DD 
ODF3 
021E 



1219 
ODF3 

149B 
ODF3 

OE^O 
ODEF 

12DD 

13A5 
1399 
1 352 

12DD 
ODEF 
021E 



CO 
OC 

oc 

OC 
OC 
OC 
3C 

38 
CO 
CO 
33 
F2 
33 
F2 
F? 
3A 
CO 
3 A 
3 1 
31 
OE 
CO 
3C 

co 

3C 

CO 



87 

00 
00 

4 
24 
04 
01 
10 
87 
80 
10 
80 
10 
87 
10 
87 
08 
A3 
A3 
09 
87 
07 
87 

00 

8 7 



1219 

ODEF 

14E9 

14E8 

14E7 

14E6 

14E5 

14EA 

1 4EC 

14E1 

1102 

0F66 

14E6 

OA 

14E8 

03 

OC 

14EA 

10DA 

14EC 

1 4EB 

14ED 

14S9 

10BF 

1000 

00E3 

1 FE4 
0DF3 



1112 CO 87 1 A1 A 



1116 
1 1 1C 
1120 
1 126 
112A 

1 12E 
1 134 



OC 
31 

OF 

co 

co 

OC 

CO 



00 
A 3 
1 
01 
37 

1 
87 



1055 
1057 
1059 



14DA 



14DA 



1BA1 



1094 
1C96 
1098 



1 4 D A 
14DA 
14DB 
14D3 
1504 



14E9 



151 A 
1-«CE 
151B 
111C 

ODEF 

1 1 }7 
1 134 



14DA 



1502 



1 4DB 



1 1 H 30 A 2 12D3 



407 
408 
4 09 
4 10 
411 
412 
4 1 J 
4 14 
415 
41b 
4 17 
418 
4 19 
420 
421 
422 
423 
424 
425 
426 
427 
423 
429 
4 30 
431 
432 
433 
434 
435 
4 36 
437 
438 
439 
U40 
441 
442 
44 3 
444 
41*5 
446 
4' 7 
4 +8 
4 4 9 
4 50 
4 51 
452 
453 
454 
4 55 
4 56 
457 
453 
459 
460 
461 
462 
463 
464 
465 
466 
467 
4 68 
4 69 
470 
471 
4 7i 
'4 7 ( 
14 74 



****** 
3 ALT 

**** 
SAINT 

****** 
FOOD 



3 FAKE 

TBN KNIT,X'02' 

BT ADV1 

B UNPACK 

DC XLI'OI* 

DC AL2(ELP-4) 

DC AL2(VIPER-26) 

3 TURN 

3 ADV1 

SUBROUTINE TO BESET 



,AV 



ELAN 
GRAIN 



EON 
ANT 

MAT 



AC] 



AXE 

3AT 



ORGY 

****** 

ANTE 

****** 

AMP 
****** 

SHOP 
SEPPL 



ER. TO ADJUST EXPECTED 
TEST FOB BIT RING 

BR. TO CONVERT PROBES 



BITS 



DFER 



********* 



ROUTINE 



LIO 3ESS # X'A4' 

3 Ai;IM 

CHANGE BUSY OR ERROR 
MVC DART+1( 1) ,FAY+1 

S ADV2 

SUBROUTINE TO TEST SENSE PR05ES 



RESET F DFDR 



********* 



SNS 
MVC 

HVI 

3 

CLC 

b? 

3 

DC 

DC 

DC 

3 

a 

MVC 

"VC 

MVC 

H VC 

MVC 

MVI 

.1VI 

TEN 

3T 

B 

TBN 

JT 

TBN 

JT 



KNIT,X'A3 ' 

EXP,FAY+1 

1SK,X'FE' 

TAKE 

KNIT (1) , EXP-4 

ADV2 

U'JPACK 

X:.1«01' 

Al 2 (EXT-4) 

AL2 (VIPE8-26) 

TURN 



SENSE PROBES 

SET UP EXP FIELD 

SET UP DONT CARE BITS 

BH. TO ADJUST EXPECTED BITS 

COMPARE ADJUS'SD PROBES 

CONVERT PROBES 



'. : i { 1) , FAY+1 
A.*T-1 (1) ,FAY + 1 
ART-2(1) ,?AY+2 
ART-3 (1) ,FAY + 2 
ART-4 (5) ,ONE+2 
»_BNER-1,X'24' 
ELIA-1,X'04' 

;^T-3 # x«0i ■ 

ORGY 

F30G 

AST-3,X'80' 

ACT 

ART-1 ,X '80 • 

AXE 

BAT 

ABNER- 1,X' 10« 

MAT 

ELLA-1,X* 08' 

ABNER, X' A3* 

SLLA.X' A3" 

ART (10) , ART 

ELAN 

EON+1 ,X '07 ' 

ADV3 
SUBROUTINE TO SET 
MVI AHNE+3 X ' 00 

3 ADV1 

SUBROUTINE TO END 
3 END 

SUBROUTINE TC FORCE 256 X 



SBN 

3 

SBN 

LIO 

LIO 

AL^ 

3 

MVI 

E 



* AM CH'.B ROUTINE 



CLOCK BYTE R'CSET 
LATA BYTE RESET 



TURN ON AM BIT 



TURN ON DATA BIT 



SET AM BIT ON 

SET DATA BIT ON 
C£ LIO FOR CLOCK TIME 
CS LIO FOB DATA TIME 
SHIFT BITS 

SET 5H OIF FOR SENSE PH 



N TO 



SET N BYTE TO 



CF ROUTINE HALT 



********* 



** ******* 



****** 

WHELK 

BEAT 

********** 

STAT SNS 



MVC ANO- 1 (1) .FAY + 1 

LIO ARID,X'A3* 

SLC ANO (2) ,CNE 

BNZ SEPAL 

3 ADV2 

SUBROUTINE TO BRANCH TO 

MVC BEAT* 3 (2) ,i AY + 2 

B BEAT 



PARA CNT OSC 
MOVE COUNT TO 
CE LIO WR OSC 
SUET ONE 

CONT TILL 3 ZERO 
GET NEXT PAR' 
NEK ROUTINE 



********* 
COUNTER 



********* 



SUBROUTINE TO 
KNIT-2,X ' A2 ' 



CHK STATUS ********** 

SENSE STATUS J ♦ 1 



DATE 
_C NO. 



0/h/i?7 
57V..12 



1 APR70 
571516 



0*>MAY70 
5 7 1 5 1 J 



1JUL70 
5 7 1S24 



01MAR71 
571573 



PROG 
PAGE 



ID 



0AO1-4 

4 



IBB MAINTENANCE DIAGNOSTIC PRQGRAH 



A014 



FILE CONTP.IL UNIT FLT SECTION 1 



PART 
PAGE 



NO. 



512961 1 
4A 



ERR LOC OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



1 13C 


30 


A3 


12PD 




1 mo 


OC 


02 


18A4 


14DC 


1146 


OC 


02 


1B98 


1BA8 


1 14C 


CO 


87 


1B52 




1150 


GD 


02 


12DC 


13A0 


1156 


CC 


81 


ODE3 




11 5A 


CO 


87 


021E 




115E 


3 








1 15F 


1BAO 






1161 


1394 






1 163 


CO 


87 


1219 




1167 


CO 


87 


ODE 3 




116B 


3A 


40 


0EF7 




116F 


3A 


40 


OEFB 




1 173 


CO 


87 


ODF3 





1177 33 40 0SF7 

117B 3B 40 OEFB 

117F CO 87 0DF3 

1 183 3C 87 OFFA 

1 187 CD 87 CDF3 

118B 3C 07 OFFA 

1 18F CO 87 0DF3 



i 193 


3B 


20 


0EF7 


1 197 


CO 


87 


0DF3 


119B 


3A 


20 


0EF7 


119F 


CO 


87 


ODF 3 


11A3 


3C 


87 


0F5F 


1 1A7 


co 


8"> 


OEEA 


11AB 


oc 


09 


14E9 


1 1B1 


3C 


87 


10D0 


1 1B5 


CO 


87 


10BF 


11B9 


3C 


87 


0F5P 


11BD 


36 


01 


1502 


11C1 


CO 


87 


OEEA 



11C5 31 A4 1493 

11C9 31 A4 1495 

1 1CD 31 A4 1493 

11D1 CO 47 DDF 3 



1 1D5 
1 1D9 

I 1DD 

II El 
1 1E5 
11E9 
11EF 
1 1F3 
1 1F7 
11FD 



3C 

CI 

33 
3D 
CO 

oc 

38 
CO 
OC 
CO 



1 
A4 

1 
00 
81 

1 - 
01 
90 
01 
87 



1201 CO 87 ODEF 



1205 
1203 
12 OF 
12 12 
1216 
1219 
121D 



F2 
3C 
F2 
34 
CO 



87 
F« 

87 
08 
8 7 



475 

476 
477 
478 
479 
480 
481 
115E 4 82 
1160 483 
1162 484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
14AF 511 

512 
513 
514 
515 
516 
517 
518 

51 9 
520 
521 
522 

52 3 
524 

.52 5 
526 
527 

52 8 
13C3 529 

53 
53 1 

13A1 532 

5 3 i 
5 3'* 
53 5 
120 A 5 36 
5J7 

8 E 5 3 8 

1 i r 5 3 9 

8B 540 

12C i r>4 1 

1J2& 542 



11E2 
1 1E1 
11E2 
14DA 
ODEF 
13B0 
14DA 
1219 
13A0 
1219 



40D540D54040 
3C E^ 12FE 



SNS 


KNIT, X' A3 1 


SVC 


EVP-1 (3) , FAY + 3 


SVC 


KSK-1 (3) ,K5K1 


3 


FAKE 


CLC 


KNIT-1 (3! ,EXF-5 


BE 


ADV r - 


3 


UNPACK 


DC 


XL •'0 3' 


DC 


AL2(E<?-5'- 


DC 


AL2 (VI?ER-2o) 


g 


TURN 


3 


ADV5 



SENSE STATUS 2 + 3 

SET UP EXP FIELD 

SET UP DO NT CARE BITS 

BR. 10 ADJUST EXPECTED STATUS 

CCSPARE ADJUSTED STATUS 

CONVERT EXPECTED STATUS 



****-**SET WR OSC BIT ON SERIAL DATA ROUTINE*************** 
VARY SBN GRE+1,X*40' SEISET OSC BIT ON 

SSN ORE+5,X , 40' SET OSC BIT ON 

3 ADV1 

*******SET W3 OSC BIT OFF SERIAL DAT;. ROUT INE***** ********** ** 
WARY S3F OPEt1,X , 40" SET OSC 2IT OFF 

S3F OJ.g + 5,X*40' 

B AD71 

*******SET SENSE L ! Y BIT ************* ********** 
iCTNE HVI GALA-s-1,X' 87' SET SENSE TO BIT RATE 

3 ADV1 

*******S£'j; s'iNSE 3Y BYTE* ********* ********** * 
TINE .1VI GALA*1,X> 07* SET SENSE TO 5YTE RATE 

3 ADV1 

*****^*SET SEP CLK OF? SERIAL DATA ROUTINE ****************** 
WIRE SBF ORE+1,X'20' SET SEP CLK BIT OFF 

B ADV1 

*******SET SEP CLK ON SERIAL DATA ROUTINE**************** 
WIRY SBN O3E*1,X«20' SET SEP CLK BIT ON 

3 Ai.VI 

*******SERIALIZE DATA CHAP KITH SENS ******«-** = ********** * 
MINT SVI FOES+1,X'37' SET SH FOR SNS PRCSHX 

B TRACT 

*******AM CHAR WITH SENSE *************** 

SINE MVC ART( 10) ,SSART 

MVI EON+1 ,X '37 ' SE T SH FOR SNS PROBES 

B ELAN 

********SERIALIZE DATA CHAP WITH SENSE AND RESET DFLP****** ****** 
LIST SVI ZONE+1,X'o7' 

A N E , X R 1 

3 TRACT 

*******7EST CE LIO ROUTIN f ■* ***************** 
ACRID LIO CQRN,X'A4< 

LIO COHD,X'A4' 

LIO CORN,X'A4' 

3 ADV1 

*********ROUTINE TO CHEC: 
POOR HVI 7OH+1,X , 1' 



SCAN FOUND ***************** 



TIO FOR, X' A 4* 

SBF FOR+I.X'OT 

FOR CLI FAl"+1,X* 00' 

BE ADV2 

MVC VIPER ( 18) , SCAN 

TBN* FAY+1,X'01' TEST FOR EXP SCN H] 

BF TURN BR IF NOT 

1VC VIPER-1b(2) , VIPER-1 5 

3 TURN 

3 ADV^; 

********** PRINT SUBROUTINE 

OGLE DC CL6' N H ' 

ELF PI VI NIBS + 2,X'Eri' 

J FLY 

BUG MVI Nias+4,X' E8' 

FLTT 

TURN ST P0U^,X'08' 

ONLY 3 ONCE 



********************* 
MOVE Y TO PRINT 
MOVE Y TO PR INT 



DATE 
EC NO. 



2MAR70 
57 1512 



01 APR 7 
571516 



0b!1AY70 
57 1513 



01 JUL? 3 
571524 



01MAR71 
57157 i 



PROG 
PAGE 



0A01-4 
4A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129611 
5 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERR LCC 


OBJECT 


' CODE 




ADDS 


STMT 


SOURCE 


STATEMENT 


1221 


36 


01 


12F3 


148B 




543 




A7 


BRAD(2) ,TEN (2) 


1227 


3C 


40 


2F 3 






544 




S .' I 


SRAD.X'UO' 


122B 


3C 


40 


12F1 






545 




« VI 


BRAD-2,X'40» 


122F 


3C 





12EA 






54 6 




MVI 


OPINE, X'OO ■ 


1233 


oc 


15 


12E9 


12EA 




547 




MVC 


OPINE- 1 (22) , OPINE 


1239 


oc 


00 


12D6 


132 5 




54 8 




MVC 


ANDES ( 1) ,ANDY 


123F 


3 4 


1 


12;o 5 






549 




ST 


ANDES- 1.XR 1 


121+3 


OC 


03 


12E2 


1FE4 




550 


S EON- 


SVC 


KITE(4) ,ARNE + 3 


1249 


30 


A.2 


12DB 






551 




SNS 


KNIT-^,X ' A2« 


124D 


30 


AJ 


12DD 






552 




SNS 


KNIT.X' A3' 


1251 


30 


A 6 


12E5 






553 




SNS 


KIT.X' A6" 


> 2 5 5 


30 


A4 


12E8 






554 




SNS 


KAT,X« A4 1 


1259 


oc 


CO 


12EA 


1EE0 




555 




MVC 


OPINE(I) ,B' 


12 5F 


co 


87 


02 IE 






556 




p 


UNPACK 


1263 


1 8 








1263 


55 7 




DC 


XL 1 ' 1 a ■ 


1 264 


12EA 






1265 


558 




DC 


AL2 (OPINE) 


1 2 6 f > 


1324 






1257 


559 




DC 


AI.2(UNIT) 


Usfc 


CO 


87 


12C8 






560 


STAR 


a 


BURN 


126C 


'/C 


03 


12FA 


1524 




56 1 




MVC 


NIBS-2(4) ,ALMS-1 


1272 


oc 


05 


1302 


12CA 




562 


SLA3 


SVC 


NI3S+6 (6) . CGLF 


1 21 B 


?c 


40 


12F6 






563 




MVI 


NI8S-6,X" 40" 


1.7J 


OC 


01 


1322 


120A 




564 




MVC 


UNIT-2 (2) ,GGLE 


1232 


OC 


01 


131C 


120A 




565 




MVC 


UNIT-8 (2) ,OGLE 


i2e>a 


:1 f" 


01 


1316 


120A 




566 




MVC 


UNIT- 14 i2) ,OGLE 


1 25E 


OC 


01 


130C 


12CA 




567 




MVC 


UNIT--4 (2) ,CG1E 


1294 


JC 


40 


12F4 






568 




MVI 


BRALH-1.X* 40' 


129 a 


3C 


40 


12F5 






569 




MVI 


BRAD+2.X'40' 


129C 


CI 


A2 


1205 






570 




TIO 


ELF, X- A 2< 


12A0 


CI 


AO 


1212 






571 


FLY 


TIO 


8UG,X' AO' 


12A4 


CO 


37 


021 A 






572 


FLIT 


3 


PRINT 


1/A8 


8 1 








12A8 


573 




DC 


XL1 '81 » 


12A9 


3 9 








12A9 


574 




U w 


XL V 39' 


12AA 


13: 


>4 






12AB 


575 




DC 


AL2 (UNIT) 


12 AC 


C 


87 


02 1 A 






57 6 




3 


PRINT 


12S0 


139 






12B1 


577 




DC 


XL2'0139' 


12H2 


13 30 






12B3 


57 8 




r>r- 


AL2 (VIPER) 


12E4 


JC 


07 


035C 






579 




MVI 


FILET+1 ,X'07 • 


12B3 


C2 


1 


021A 






580 




LA 


PR I NT, X 61 


123C 


34 


01 


1A1D 






581 




ST 


END+3,XS1 


12C0 


C0071000 




12C 3 


582 


POUT 


DC 


XL4 'C0071000 • 


12C4 


CO 


87 


12C4 






58 3 


GOUT 


3 


GOUT 


i2ca 


OC 


5 


12FC 


1 480 




584 


BURN 


MVC 


NIBS (6) ,CRUX-1 


12CE 


CO 


87 


1272 






585 




3 


SLAB 












021A 


586 


PRINT 


SQU 


X • 2 1 A ' 












021E 


587 


UNPACK 


EQU 


X' 21E' 


12D2 










12D5 


588 


NUT 


DS 


CL4 


12D6 


00 








12D6 


589 


ANDES 


DC 


XL 1" 00 • 


12D7 










12DD 


590 


i.N'IT 


DS 


CL7 


12DE 










12F2 


59 1 


KITE 


DS 


CL5 


12 S3 










12E5 


5 92 


KIT 


DS 


CL3 


12S6 










12E8 


59 3 


: AT 


DS 


CI 3 


12E9 










12EA 


594 


C^INE 


DS 


C„2 


12E3 


40C5D9D9D6D940F0 


12F3 


595 


EHAC 


DC 


CL9' ERROR • 


12F3 


40 










595 








1<I?4 










12FC 


596 


NI33 


33 


CL9 


12FD 










1 3?u 


5 ° 


II i» 1 T 


J.l 


CL40 


1 32 S 


00 








13 25 


59 8 


ANDY 


DC 


XL TOO* 














599 


*********PRINT HEADING ROUTINE 


132 6 


34 


8 


133B 






600 


ONCE 


ST 


HE3E+3,X' 08' 


1 32A 


3C 


07 


l 2 1 E 






601 




MVI 


ONLY+1 ,X'07' 


132E 


CO 


87 


021 A 






602 




3 


PRINT 


13 32 


CI 








1 332 


60 3 




DC 


XL1 *C1 ' 


i ^ n 


3 A 








1333 


604 




DC 


XL 1' 3A' 


13 34 


1 3 76 






1 3 35 


6O3 




DC 


AL2 (CPUS) 


1 3 3 6 


AOO 1 






1337 


6C 6 




DC 


XL2'A001' 


13 38 


CO 


87 


1 3 i 






607 


H2HE 


-> 


HERE 


1 3 3C 


40C5D 


9D9D6D940D5 


1345 


608 




DC 


CLIO' EBRCR NC. ■ 


1344 


06 


43 








60« 








DATE 


2MAR 


''O 


01APR70 


06MAY70 


01JUL70 01HAR71 


EC NO. 


571512 


57 1516 


57 T- 


1 3 


57152 


\ 57 157 3 



ADD 1 TO EBROF- COUNT 
MOVE BLANK TO PRINT 
MOVE BLANK TO PR:. NT 
CLEAR UNPACK ARFA 



STORE MSG COUNTR IN PR AREA 



SENSE 01 
SENSE 23 
SENSE DFCR 
SNSE DFDR 



MOVE MSG NUNBEH TP PH 

MOVE BLANK TO PR 

MOVE BLANKS BETWEEN FLDS TO PR 

MOVE BLANKS BETWEEN FLDS TO PR 

MOVE BLANKS BETWEEN FLDS IC PR 

COVE BLANKS BETWEEN FLDS TO PR 

MOVE BLANKS TO PR AREA 

MOVE BLANKS TO PR AREA 

TEST FOR BUSY 

TEST FOfc ERROR 



3TCP AFTER FIRST GROUP 



ONLY ONCE PER LOAD********** 



PROG ID 
PAGE 



0A0 1-4 
5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PAST NO. 
PAGE 



5129611 

5A 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERR LCC OBJECT CODE 



ACER STMT SOURCE STATEMENT 



1346 
1 34E 
1356 
135E 
1366 
136E 
1376 
1377 
137F 
1387 
1389 
13B'i 
13B2 
13BA 
13C2 

13C4 
13C8 
13CE 
13D2 
13D6 
13DC 
13E0 
13E3 
13E7 

13E3 
13EF 
13F5 
13F9 
13FD 
1403 
1407 
140D 
141 1 
1415 
1416 
1418 
141A 
1420 
1424 
1 'i2 8 
14 >C 
1430 
1434 
143^ 
143B 
142F 
1443 
144"/ 
144H 
' 44D 
I 404 
1456 
1458 
14 5C 
1463 
1469 
146F 
147 5 
147B 
14 82 
14H7 
14 9C 
148F 
1492 
14 94 



40D4E2C740D5D643 1376 

40C24CC5404040E2 

E3C1E3E4E2404040 

C3E3D9D340C6D3C4 

4040C4C6C3D94040 

C4C6C4D940C4C1E3 

C1 

4040C5E7D7C5C3E3 1383 

C5C4404040404040 

4040 



40 



34 
OC 

CO 
34 
OC 
31 
F3 
CO 
CO 



08 
03 
87 
OB 
3 
A6 
AO 
87 
87 



34 

OC 

30 

30 

OC 

3C 

OC 

CO 

CO 

03 

1 3A0 

1394 

OF 02 



03 
00 
A2 
A3 
02 
00 
06 
87 
87 



13EA 

1FE4 

13DC 

1 3EA 

1FE4 

149D 

00 

13E3 

13E7 

1442 
1 4F4 
12DB 
12DD 
1398 
13A5 
13A4 
1352 
021E 



144A 



1446 



1502 



13 A: 



13A5 



1502 



14. 6 
CO 01 142C 
CO 87 12 s9 
CO 07 1A1A 
38 10 12D3 
CO 10 13F5 
38 01 12DA 
F2 90 04 
CO 87 1219 
CO 87 143F 
OOOOOOOO 
O0C081O0 
1 A1 A 

5C5CC5D5C45C5C 
1A1 A 
1458 

000001 »F 
F0F1F0FOFOFOFO 
F2F0F0F0F0F0 
F3F0F0F0F0F0 
F4FOF0FOF0F0 
F5FOF0F0F0FO 
FOFOFOFOFOFo. 
FOFOFOFOFO 
F0FOF0F1F0 
A300 

0000540 : 
PFFF 
000 



13 BO 
1331 



D5D640C2D94B40D6 13C3 

C540E2C3C1D540C8 

C9E3 



1415 
1417 
1419 



1446 
144 A 
144C 
1453 
1455 
1457 
1458 
1462 
1468 
146E 
1474 
147A 
1481 
14 80 
148B 
148D 
1491 
1493 
149 5 
000 1 



60 9 

609 

609 

609 

609 

609 

609 

610 

610 

610 

6 11 

612 

513 

613 

613 

614 

615 

616 

617 

618 

519 

620 

621 

622 

62 3 

624 

625 

626 

627 

623 

62 1 

630 

631 

632 

6 3 J 

634 

635 

636 

637 

63H 

639 

640 

64 1 
642 
64 3 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
65b 
657 
658 
659 
660 
661 
662 
66 3 
664 
66 5 
66 6 



OPUS 



DC 



CL49' MSG 



STATUS 



r.RL FLD 



3FC8 DFDR EAT A' 



VIPER 
Bi,.\NK 
SCAN 



DC 



DS 
DC 

DC 



CL13' EXPECTED 



CL40 
CL1 • ■ 
CL 18' NO 



3R. ON SCAN HIT' 



***** *** **H 



3CSS 

BASS 
MASS 



ST 
MVC 

3 

ST 
MVC 
LIO 
SIO 
3 
MASK 3 
* ******* ** 

ST 
MVC 



ANISE 
ATTIC 



ARBOH 



ANVIL 

PASS 

EA3K 

GAUDY 

LANE 

SAND 

SAW 

CAKE 

TRUCK 

TRICK 

THICK 

IHJT 

THEM 

CRUX 

FLUX 

TEN 

LAP 

SOAP 

CORN 

CORD 

XR1 



SKS 

SNS 

MVC 

MVI 

MVC 

3 

3 

DC 

DC 

DC 

SLC 

3NZ 

3 

3 

TBN' 

T3N 
JF 

3 

DC 
DC 
DC 
.DC 
DC- 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC- 
DC 
DC- 
DC 
DC- 
DC 



OUTINES TO SELECT HEAL 
MASK + _>,X" 06' 
ARNE+3(4) , BASK 
MASS 

MASK+3.X' 08' 
ARNE+3 (4) , PASS 
ANNE,X' A6 ' 
X * ■ , X ' A Q • 
ANISE 
MASK 
SUBROUTINE TC Cii K SK 
AN VIL+3.X' 08 ' 
3EIGE-2(1) ,ONE 
KNIT-2,X' A2' 
KNIT.X' A3' 
MS K - 1 i 3 ) , MS X 3 
EXP,X« 00' 
EXP-1 (7) , EX? 
FAKE 
UNPACK 
XL1 *03 ■ 
AL2 (EXP- 5) 
AL2(VIPER-28) 
BEIGE (3) , ONE 
ARBOR 
TURN 
END 

KNIT-2.XM0' 
ATTIC 

KNIT-3.X "0 1 ' 
AN'VIL 
TURN 
ANVIL 
XL4 '00 000 
XL4 '000OU10O ' 
AL2 (END) 
CL7 '**END**' 
AL2 (END) 
AL2 (CAKE-3) 
XL4 1 000001DF ' 
XL7 'F0F1F0F0 FOFOFO' 
XL6' F2FOFOFOF0' : 'O• 
XL6 'F3F0F0F0F0F0' 
;:L6" F4F0F0F0FCFC 
XL6 'F5FOFOF0 FOFO' 
CL7' 000O000' 
CL5 '00000 ' 
CL5' 0001 U' 
XL2 ' A300 ■ 
XL 4' 0000 540 3 • 
XL2 'FFFF' 
XL 2'0000' 
1 



1 



o ca 

STORE R 
SET UP FOR 



******** ******* ******** 

TURN 

H D 1 



;TCRE RSTUt 
SET UP FOP 



N 

HD 



EUSY *************** 

STORE RETURN 
SET UP TIME OUT C~R 
SENSE STATUS * 1 
SENSE STATUS 2+3 
SET UP DOIT CAR 1 " BIT; 
SET UP EXPECTED r ITS 



ER. 

3R. 



TO 
TO 



ADJUST 
CONVER1 



EXPECTED 

Si ATUS 



BITS 



SO TRACT ONE FROM TIMEOUT CTR 



3USY 



TEST 


FOP S E EK 


LOOP 


IF BUSY 


TEST 


FOR SEEK 



:heck 



SEEK CTL FLD NO MOTION HD 



DATE 
EC NO. 



02MAR70 
57 15 12 



01APR70 
6 71516 



06MAY7Q 
6 715 13 



11 JUL 70 
57 152 4 



01 MAR 71 
5T1573 



pro;; id 
page 



A01-4 
5A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



512S.61 1 
6 



A014 



FILE CONTROL UNIT FLT SECTION 



SHE LCC 


OBJECT CODE 


ACER 


ST MT 


SOURCE 


STATEMENT 






1 496 


0000CJU5 


1499 


567 


A by ;s 


DC 


XL4 , O0OvyvJ0O c ' 






149a 


UEO 


1493 


668 


BESS 


DC 


AL2 (BARN) 


ACERES3 OF DATA FIELD 




149C 


1 FE1 


149D 


669 


ANNE 


DC- 


AL2 (ARNE) 


ADDRESS OF CONTROL FLD 




149E 


D9C5C640F1 


14A2 


b70 


PALMS 


DC 


CLS'REF 1" 






14 A 3 


00 


14A3 


671 


SAY 


DC 


*L1 '00' 






1 4 A 4 


00000000 


14A7 


672 




U i 


XL4'00C00000' 






14A8 


000100001818C2C2 1UAF 


673 


SMART 


DC 


XL8' 00010000 18 ;SC2 


C2* 




1430 


0OFF0401 


1433 


674 


COPE 


DC 


i.e. •!* 00FF04O1 ' 


READ DATA 2 CTI FLD 




1454 


A101 


14E5 


675 


MA\ 


DC 


XL2'A101 • 






1436 


A 100 


1437 


676 


NOR 


DC 


XL2' A100 • 






1438 


A102 


14B9 


677 


OPERA 


DC 


XL2'A 102' 






143 A 


A 103 


1433 


673 


PINE 


DC 


XL2'A103' 






14 3C 


A200 


143D 


679 


RAT 


DC 


XL 2» A200' 






1 4 3 F 


A201 


14BF 


6 8U 


SET 


DC 


XL2'A201' 






14C0 


A3 01 


14C1 


681 


TAP 


DC 


XL2' A30V 






14C2 


A302 


14C3 


6 82 


VIP 


DC 


XL2 'A302' 






1 4C4 


00000000 


14C7 


683 


MOPE 


DC 


XL4'00000000' 


CTL FLD WR ID RD ID 




14C8 


3 


!4C8 


684 


ROPE 


DC 


XL1 '03' 


CTL FLD WR DATA RD DIAG 




1 4C 9 


c 


14CA 


685 


WAD 


.-/V^ 


XL2' 0000" 






14C3 


0000 


14CC 


686 


WED 


DC 


XL2 'O0C0' 






14CD 


<:000 


14CE 


687 


ARID 


DC 


XL2' <4000' 






U'CF 


OOCOOOOO 


14D2 


688 


CAREA 


DC 


XL4 '00000000 ' 






14D3 


00 


14D3 


689 


CCNT? 


DC 


XL TOO' 






14D4 


55 


14D4 


690 


FTY5 


DC 


XLTS5' 






14D5 


0000 


1UD6 


691 


ANY 


DC 


XL2' 0000' 


DFCR PARA 




14D7 


00 


1408 


692 


ENY 


DC 


XL2 '0000' 


EFLK PARA 




14D9 


00 


14D9 


693 


FAY 


DC 


XL T 00' 


PARA WKG AREA 




14DA 




14DD 


694 




DS 


CL4 






1 4DE 


oooo 


14DF 


695 


GAY 


DC 


XL2' OOOO' 


PARA POINTER 




14E0 


ooooocoooco 


C0C00 14E9 


696 


ART 


DC 


XL10'0000000000000 


",00 0000 ' 




14E3 


0000 




696 












14EA 


00 


14S3 


6 97 


A3SER 


DC 


XL2<0000* 






14 EC 


0000 


14SD 


698 


ELLA 


DC 


XL2'O00O' 






14EE 


0000 


14EF 


699 


SELL 


DC 


XL2 <0000' 






14F0 


0000 


14F1 


700 


3 A."! 


DC 


XL2' 0000' 






1 ''F 2 


0000 


14^3 


701 


FLUID 


DC 


XL2'O0O0' 






1 4F4 


000000 


14F6 


702 


3EIGF 


DC 


XL J' 000000' 






14F7 


007000 


14F9 


703 


TAN 


DC- 


XL3 '007000 • 






14FA 


00000000 


14'D 


704 


CANT 


DC 


XL4' 00000000' 






14FE 


00 


1 4FE 


705 


BSIND 


DC 


XL1 '00' 






14FF 


00 


14FF 


706 


2 S I N 


DC 


XL T 00' 






1500 


030001 


1502 


707 


ONE 


DC 


XL3 '000001 • 






1503 


000002 


1505 


70S 


TWO 


DC 


XL 3'000002' 






1506 


C00004 


1508 


709 


FOUR 


DC 


XLJ '000004 ' 






15 09 


1 0100000 


150C 


710 


TONY 


DC 


XL4' 10100000' 






150D 


0003 


150E 


711 


THREE 


DC 


XL2 '0003 ' 






1 50F 




'1511 


712 




DS 


CL 3 






1512 


0000 


1513 


71 3 


E.-OAD 


DC 


XL2 '0000' 






1514 


0000 


1515 


714 


TOAD 


DC 


XL 2' 0000' 






1516 


0000 


1517 


715 


RTNAP 


DC- 


XL2 '0000 • 






1518 


00 00 


1519 


716 


ALTAR 


DC 


XL2' 0000' 






151 A 





151 A 


717 


ANNA 


DC 


XL1 '00 ' 






1 5 1 B 





1513 


7 18 


ANO 


DC 


XL 1' 00' 






151C 


CO 


:5 1C 


719 


POND 


DC 


XL1 '00' 






151D 


6 00 


1512 


720 


CLK1 


DC- 


XL2' cOOO' 






151F 


4000 


1520 


721 


FETE 


DC 


XL2 '4000' 






152 1 


0000000000 


1525 


722 


ALMS 


DC- 


XL5' O0C000O0CO' 






1526 


1 52 8 


1527 


723 


MAX 


DC 


AI.2 (MORN) 






152 8 


40 


1528 


724 


MORN 


DC 


XL1 '40' 






1529 


02 


1529 


725 




DC 


XL 1 '02' 


2 5C 




152A 


525E66 


15 2C 


726 




DC 


XL3' 525E66 ' 


RESET 




152D 


2A10 


152E 


727 




DC- 


XL 2' 2A10' 


SET BUSY NO ERROR 




152F 


22 


152? 


72 8 




DC 


XL i '^2' 


INITIALIZE SET TO 8 




15 3 


1 AOOOB 


15 32 


729 




DC- 


XL 3' 1 AOOOB' 


11 BYTES 




15 3 3 


3 AC 2 1H 


15 3 5 


7 30 




DC 


XL 3 '3AC218 ■ 


GOOD AM 




15 36 


1 A0E01 


1 5 3 H 


731 




DC 


XL 3' U0E01 ' 


SYNC CHAH 




1 5 3 9 


1AFF01 


15 13 


7 32 




DC 


XL 3 ' 1AFF0 1 • 


1ST EYTE ID FF 




15 3C 


1 A 00 05 


1 5 3 E 


7 3 3 




DC 


XL 3' 1A0 0" 5' 


2 BYTE ID 3 BYTE CC DATA CHK 




DATE 


O2KAR70 


01APR70 


6 PI A Y 7 


01JUI.70 01MAR71 


PROG ID 


0A01-4 


EC NO. 


571512 


57 1516 


6 715 


, , 


5 715 2 4 


57157 3 


PAGE 


6 



IBH MAINTENANCE DIAGNCSTIC PROGRAH 



PART NO. 
PAGE 



512961 1 
6A 



A014 



FILE CONTROL UNIT FLT SECTION 1 



EBR LOC 


OBJECT CODE 


ACDR 


STHT 50'JRC 


I STAT 


EHENT 


153F 


2A11 


1540 


734 


DC 


XL2'^A1 1 • 


1541 


1A0OOE 


1543 


735 


DC 


XL3' 1 A000E' 


1544 


O2FFO00O00 


1548 


736 


DC 


XL5 , O2FFC00OC0« 


1549 


3A8218 


154B 


737 


DC 


XL3 <3A3218 • 


1S4C 


1 A0002 


154E 


738 


DC 


XL 3" 1A0002' 


154F 


3A4218 


1551 


739 


DC 


XL3 '3A4213' 


1552 


1 A0O02 


1554 


740 


DC 


XL3< 1 A 00 2' 


1555 


3AC018 


1557 


741 


DC 


XL3' 3AC018' 


1558 


1A0002 


155A 


742 


DC 


XL3' 1 A0002' 


155B 


3AC2 10 


155D 


743 


DC 


XL3' 3AC210' 


155E 


1A0OO2 


1560 


744 


DC- 


XL3 '1 A0002 • 


1561 


3AC208 


1503 


745 


DC 


XL3' 3AC208" 


1564 


1A0O02 


1566 


746 


DC 


XL3' 1A0002' 


1567 


3AE2 18 


1560 


7'4 7 


DC 


XL3 '3AE218' 


'56A 


1A0C02 


156C 


748 


DC 


XL3« 1A0002 ' 


.56D 


3AD2 18 


156F 


74 9 


DC 


XL3 '3AD218 • 


1570 


1 A00 02 


1572 


750 


DC. 


XL3' 1A0002* 


1573 


3ACA lb 


1575 


751 


DC 


XL3'3ACA18 • 


1 576 


1 A0O02 


1578 


752 


DC 


XL3* 1A0002' 


1579 


3AC628 


157B 


753 


DC- 


XL3' 3AC628' 


157C 


1A0002 


157S 


754 


DC 


XL3' 1 A0C02' 


157F 


3AC318 


1581 


755 




XL3'3AC318 ] 


1582 


1A0002 


1584 


75b 


DC 


XL3 '1 A0002' 


15 85 


3AC298 


1587 


75/ 


XT* 


XL3' 3AC298" 


1588 


1A0OO2 


158A 


756 


DC 


XL3 '1 A0002 ' 


158E 


3AC2 58 


158D 


759 


DC 


XL3' 3AC258' 


153E 


1A0002 


1590 


760 


DC 


XL3 '1 A000 2' 


1591 


3AC238 


159 3 


761 


DC 


XL3" 3AC238' 


1594 


1A0O02 


1596 


762 


DC 


XL3' 1A00Q2 ' 


1597 


3AC21C 


1599 


763 


DC 


XL3' 3AC21C* 


159A 


1 A0002 


15?C 


764 


DC 


XL 3' 1 A 0002' 


159D 


3AC21A 


15SF 


765 


DC- 


XL3 '3AC21 A' 


15A0 


1 A0002 


15.\2 


766 


DC 


XL3* 1A0002' 


15A3 


3AC219 


15A5 


767 


DC- 


XL3«3AC219 • 


15A6 


1 A0002 


15A8 


768 


DC 


XL 3' 1A00Q2" 


15A9 


3AC218 


15A3 


76 9 


DC 


XL3 '3AC218 


15AC 


2A10 


15AD 


770 


DC 


XL2' 2A 10' 


15AE 


1A0E01 


15B0 


771 


DC 


XL3 «1 A0E01 ' 


15B1 


1A0OO3 


15B3 


772 


DC 


XL3* 1A0003" 


15B4 


1AFF03 


1536 


77? 


DC 


XL3 ■ 1 AFF03 • 


15B7 


1 AOOOA 


15B9 


774 


DC 


XL3" 1A000A' 


'5!iA 


2A0O 


1533 


775 


DC 


XL2 "2A00 ■ 


'. :,3c 


1 A0001 


153E 


776 


DC 


XL3* 1A0001 • 


15BF 


4A 


153F 


777 


DC 


XL1 '4 A' 


15C0 


OAAD 


15C1 


778 


DC 


AL2 (RAPT) 


15C2 


15C4 


15C3 


779 PEN 


DC 


AL2(SHED) 


15C4 


40 


15C4 


78C SHED 


D C 


XL1 '40 ■ 


15C5 


02 


15C5 


Jb 1 


DC 


XL 1 '02' 


15C6 


525E66 


1^C8 


7 82 


DC 


XL3 •525E66' 


15C9 


2A1C 


15CA 


783 


DC- 


XL 2' 2A10' 


15CB 


22 


15C3 


784 


DC 


XL1 • 22' 


15CC 


1 AOOOB 


15CE 


"85 


DC 


XL3' 1A0003* 


15CF 


3AC218 


15D1 


7 U 


DC- 


XLi '3AC218 • 


15D2 


1 AG EC i 


15D4 


7H 1 


DC 


XL ?' 1A0E01 ' 


15D5 


2A1 1 


15D6 


78 . 


DC- 


XL2 '2 A1 1 • 


151) ' 


1 AFF01 


15DJ 


7 89 


DC 


XL3' 1AFF01 • 


15DA 


1A00 06 


15DC 


790 


DC 


XL3 ' 1 A0006 • 


15DD 


4E0AO0OOOO 


15E1 


-"11 


i;c 


XL5< 4EOA000OC0 


15E2 


1A0O0E 


15E4 


7 92 


DC 


XL3 '1 AOOOE 1 


15E5 


3AC2 18 


15E7 


79 3 


DC 


XL 3* 3AC2"8' 


15E8 


1A0E01 


15E,\ 


7 94 


DC- 


XL3 '1 A0E01 ' 


15EB 


1 A0001 


1 5 S D 


795 


DC 


XL J' 1A0001 • 


15 EE 


1 A J? F 1 


15F0 


796 


DC 


XLI '1 AFFO 1 • 


15F1 


1 A .14 01 


15F3 


797 


DC 


XL 3' 1A0401 ' 


15F4 


1A00 01 


15 F b 


798 


DC- 


XLi ' 1 AOOO - • 


15F7 


1 AFB01 


1 5 F 9 


79 9 


DC 


XL 3' 1AFB01 • 


15FA 


1AF601 


15 EC 


800 


DC 


XI... • 1 AF60 1 • 


15FD 


2A10 


1 5 F E 


8 1 


DC 


XI. 2* 2A 10' 


DATE 


2HAR70 


01APR7C 


C6KA Y70 


1 JUL 


/>; 1MAR7 1 


EC NO. 


5 715 1:; 


57 15 16 


5 7 1511 


5 7 15 2 


4 57 157) 



SET 3USY ERROR 
14 BYTES 

ADR MARK HSG BIT 

2 BYTES 

ADR MARK MSG BIT 1 

2 BYTES 

ADR HARK HSG BIT 6 

2 BYTES 

ADR MARK HSG AH BIT 2 

2 EYTE3 

ADR HARK HSG AH 3IT 3 

2 EYTES 

ADR HARK EXTRA BIT 2 

2 BYTES 

ADR HARK EXTRA B IT 3 

2 BYTES 

ADR HARK EXTRA BIT 4 

2 3YTSS 

ADR HARK EXTRA BIT 5 

2 EYTES 

ADR HARK EXTSA BIT 7 

2 EYTES 

ADR HARK EXTSA AM BIT 

2 EYTES 

ADS MARK EXTRA AM 3IT 

2 EYTES 

A M EXTRA API II 4 

2 BYTES 

ACR HARK EXTRA AM BIT 

2 BYTES 

ADEHARK MISSING A H BIT 

2 BYTES 

ADRHARK MISSING A H 3IT 

2 BYTES 

GOOD AH 

SET BUSY NO ERROR 

SYNC CHAR 

ID ////// 

ID CC 

POST ID 

SET NOT BUSY NU E5R03 

ERANCH TO NEXT ROUTINE 



2 OSC 




RE. ET 




SET BUSY NU 


ERROR 


INITIALIZE : 


>ET TO 8 


11 BYTES 




GOOD AH 




SYNC CHAP 




SET BUSY AND ERROR 


1ST BYTE ID 


FF 


£ BYTES 




TEST STATUS 




14 BYTES 




GOOD AH 




SYNC CHAR 




FLAG 




CYLINDER 




SECTOR 




CC CHAR 




CC CHAR 




EC A 




SET BUSY NO 


ERROR 



PROG ID 
P *GE 



0A01- 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PABT NO. 
PAGE 



5129611 

7 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ESP. LOC OBJECT CODS 



ADDR STMT SOURCE STATEMENT 



15FF 


1 A000E 


1601 


802 


DC 


XL3" 1A0OOE 


14 BYTES 


1602 


1A0E01 


1604 


803 


DC 


XL3' i A0E01" 


SYNC CHAR 


1606 


1 AFF3F 


1607 


804 


DC- 


XL3' 1AFF3F 


63 DATA CHAR'S FF 


1608 


16FF 


1609 


805 


DC 


XL2 '16FF' 


COBP DATA CHAR FF 


160A 


1 AEF01 


160C 


806 


DC 


XL 3' 1AEFOV 


1 DATA EF 


160D 


06 


160L- 


807 


DC 


XL1 '06 • 


COHP DFDR 


160E 


1F1F 


160F 


808 


DC 


AL2 (BARN+63) 


1610 


26 


1610 


809 


DC 


XLV26' 


BESET DFDR 


16 11 


1A0OC0 


1613 


810 


DC 


XL3' 1A00C0' 


192 BYTES 


1614 


16EF 


1615 


811 


DC 


XL2' 16EF« 


C0.1P DATA CHAR 00 


1616 


26 


1616 


812 


DC 


XL1 '26« 


RESET DFDR 


1617 


1 AFF01 


1619 


813 


DC- 


XL3' 1AFF01 


CC C.JAR 


16 1A 


1AEF01 


161C 


814 


DC 


XL3 '1 AEFO 1 


CC CHAB 


161D 


1A0001 


161F 


815 


DC 


XL3' 1A0001 


BCA CHAR 


1620 


1A0 14 


1622 


816 


DC 


XL3 '1A0014 


14 BYTES 


1623 


E010 


1624 


817 


DC 


XL 2" EO 10' 


16 HR OSC AND INDEX 


1625 


1AC00A 


1627 


81 8 


DC 


XL3 '1 AOOOA 


10 BYTES 


1628 


3AC218 


162A 


819 


DC 


XL3' 3AC218 


GOOD AM 


'623 


1A0E01 


162D 


82 


DC 


'L3'1 A0E01 


SYNC CHAR 


162E 


4410 


162F 


821 


DC 


XL2' 4410 1 


16 SEP CLK +DATA CYC ISH 


1630 


1A0O0A 


1632 


822 


DC 


XL3 • 1AO0OA 


10 BYTES 


1633 


3AC218 


1635 


323 


DC 


XI. 3' 3AC218 


GOOD A M 


1636 


1A0E01 


1638 


824 


DC 


XL3 • 1 A0E0 1 


SYNC CHAR 


1639 


1 A0001 


163B 


325 


DC 


XL3' 1A0001 


1 BYTE 


163C 


1AFF01 


163E 


826 


DC 


Xhi '1 AFF01 


1 BYTE FF ID C BYTE 


163F 


1A2801 


1641 


8 27 


DC 


XL3* 1A2S01 


1 BYTE 28 S ! ] ) 


1642 


1A0001 


1644 


828 


DC 


XL3 ■ 1AO0O 1 


1 BYTE CC1 


1645 


1AD701 


1647 


829 


DC 


XL3 • 1 AD701 


1 PYTED7 CC2 


1648 


1AF5 01 


164A 


830 


DC- 


XL3' 1AF501 


1 BYTE F5 BCA 


1643 


1A0O0E 


164D 


831 


DC 


XL3 '1 AOOOE 


14 BYTES 


16UE 


1 A0A01 


1650 


832 


DC 


XL3' 1 A0A01 


TEST SYNC CHAR TECCGNITION 


1651 


1 A 0601 


1653 


83 3 


DC 


XL3 '1 A06O1 


TEST SYNC CHAR RECOGNITION 


1654 


1 A8E01 


1656 


834 


DC 


XL3' 1 A8E01 


TEST SYNC CHAR RECOGNITION 


16 57 


1A4E01 


1659 


835 


DC 


Xhi ■ 1 A4E0 1 


TEST SYNC CHAH RECOGNITION 


16 5A 


1A2E01 


165C 


836 


DC 


XL3' 1A2E01 


TEST SYNC CHAR RECOGNITION 


165D 


1A1E01 


16 5F 


637 


DC 


XL" ' 1 A1E01 


1 TEST SYNC CHAR RECOGNITION 


1660 


1 A0F01 


1662 


838 


DC 


XL3' 1A0FO1 


TEST SYNC CHA3 RECOGNITION 


1663 


1A0R01 


166 5 


839 


DC 


XI- 3 ■ 1 A0E01 


TEST SYNC CHAR RECOGNITION 


1666 


1 A0003 


1668 


840 


DC 


XL3' 1AO0OB 


11 3YT3S 


1669 


06 


1669 


84 1 


DC 


XL1 'OC > 


COUP DFDR 


166A 


1EEB 


1663 


842 


DC 


AI. 2 (BARN + 1 


) 


166C 


1A0E01 


166E 


84 3 


DC 


XL 3* 1AOEC1 


• 1 OE TESTS NO ADV OF CCR RING 


166F 


1A0OF4 


1671 


844 


DC 


XL3' 1 A00F4 


24 4 BYTES 


1672 


1.1FF01 


1674 


845 


DC 


XL3' 1AFF01 


1 BYTE FF 


1675 


1AF101 


16""7 


346 


DC 


XL3 • 1 AF10 1 


1 EYTE F1 


1673 


1 AFC01 


167A 


847 


DC 


XLJ' 1AFC01 


1 BYTE FC 


1679 


1A0O0E 


167D 


848 


DC 


XL3 '1 AOOOE 


• 14 BYTES 


167E 


2A0O 


167F 


849 


DC 


XL2'2A00' 


SET IND 31SY OFF ERROB OFF 


1680 


1A0001 


1682 


850 


DC 


XL3 «1 A000 1 


• 1 EYTE 


1683 


4A 


1683 


851 


DC 


XLV4A' 


BRANCH TO WRITE DATA 


1684 


0AF7 


1685 


852 


DC 


AL2 (RAST) 




1686 


1688 


1687 


853 SOT 


DC 


AL2 (BUNT) 




16 88 


40 


1688 


854 RUNT 


DC 


XL1 «40' 


WRITE 1MTA ROUTINE 


1689 


02 


1689 


855 


DC- 


XL1 '02' 


2 OSC 


168A 


525K66 


168C 


856 


DC 


XL 3' 525E66 


1 RESET 


168D 


2A10 


168E 


657 


DC 


XL2 "2A10 • 


SET BUSY HO ERROR 


16 8F 


22 


168F 


G58 


DC 


XLV22' 


INITIALIZE SET TO 8 


1690 


1A0O0B 


1692 


859 


DC 


XL3 *1 AOOOB 


■ 11 byte: 


1693 


3AC218 


1695 


860 


DC 


XL3' 3AC218 


■ GOOD AM 


1696 


1A0E01 


169 8 


861 


DC- 


XL3 • 1 AOEO 1 


' SYNC CHAR 


1699 


1 A0O03 


169B 


862 


DC 


XL3' 1A0003 


' 3 BYTES ID 


16 9C 


1 A F F 3 


169E 


8o3 


DC- 


XL3 ' 1 AFF0 3 


• 3 EYTES FF IDCC 


169F 


1 A0O05 


16A1 


864 


DC 


XL 3' 1A0005 


' 5 BYTES TO PREDATA 


16A2 


4010 


16A3 


865 


DC 


XL2 '4010 » 


16 OSC 


1SAU 


1 AOOOO 


16A6 


86 6 


DC- 


XL 3' 1A0000 


• 256 BYTES OSC 


16A7 


1A0029 


16A9 


867 


DC 


XL3' 1A0029 


* TO AH TIME 


16AA 


JAC218 


16AC 


868 


DC- 


XL 3' 3AC218 


• GOOD AM 


16AD 


■"A0E01 


UiAF 


869 


DC 


XL3 • 1 A0E0 1 


• SYNC ChAR 


DATL 


02HAP70 


01 APR70 


06MAY70 


01JUL70 01MAR7 


1 FROG ID 


EC NO. 


571512 


57 1516 


57 1513 


571524 


57157 3 


PAGE 



0AO1-4 
7 



IBS MAINTENANCE DIAGNOSTIC PROGRAM 



PART 
PACE 



HO. 



512961 1 
7A 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ESR LOC OBJECT CODE 



ADDP STMT SOURCE STATEMENT 



16BO 


1A0003 


16 22 


870 


DC 


XL »• 1A000 i> 


16B3 


4E00000000 


16B7 


871 


CC 


XL5> 4EOOOOOOC0' 


16B8 


2A11 


1639 


872 


DC 


XL2 '2A1 1 ' 


16BA 


1AFF03 


16 EC 


871 


DC 


XL3' 1AFF03' 


16BD 


2A11 


163E 


874 


DC 


XL2 »2A11 • 


16BF 


1 AFFO-4 


16C1 


875 


DC 


XL3' 1AFF04" 


16C2 


4E24000000 


16C6 


876 


DC 


XL5 '4E240000O0' 


16C7 


2A01 


16C8 


877 


DC 


XL2*2A0T 


16C9 


1A0001 


16CB 


878 


DC 


XL3' 1AO00V 


16CC 


4A 


16CC 


879 


DC- 


XL1 *4A' 


16CD 


0B15 


IbCE 


880 


DC 


AL2 (VASE) 


16CF 


16D1 


16D0 


881 NOPE 


DC 


AL2 (NONE) 


16D 1 


40 


1601 


882 NONE 


DC 


XL1 '40 • 


16D2 


02 


16D2 


883 


DC- 


XL 1 '02' 


16D? 


525E66 


16D5 


8 84 


DC 


XL) '525E66 • 


16D6 


2A10 


16D7 


885 


DC 


XL 2" 2A10' 


"6D8 


22 


16D8 


886 


DC 


XL1 '22 ' 


16D9 


1 A000B 


16DB 


887 


DC 


XL3' 1AO00B' 


16DC 


3AC218 


16DE 


888 


DC 


XL3 '3AC218' 


16DF 


1A0E01 


16E1 


889 


DC 


XL3« 1AOE01 ' 


16E2 


2A11 


16E3 


890 


DC 


XL2 '2A1 1 ' 


16E4 


1 AFF01 


16E6 


891 


DC 


XL3' 1AFF01* 


16E7 


4E02000000 


16EB 


892 


DC 


XLS '4EO20O00O0' 


16 EC 


1A0002 


16EE 


893 


DC 


XL3' 1AO002' 


16EF 


1AFF01 


16F1 


894 


DC- 


XL3 '1 AFF01 ' 


16F2 


4E02000000 


16F6 


895 


DC 


XL5'4E020000O0" 


16F7 


1A0001 


16F9 


896 


DC 


XL3« 1AO001 • 


16FA 


1AF701 


16FC 


8 97 


DC 


XL3" 1AF701 • 


16FD 


1A000E 


16FF 


898 


DC 


XL3' 1AO00E' 


1700 


3AC218 


1702 


899 


DC- 


XL3 '3AC218 ' 


1703 


1A0E01 


1705 


900 


DC 


XL3" 1A0E01 • 


1706 


1A00 04 


1708 


901 


DC 


XL3 ' 1 A0004 • 


1 709 


4E02000000 


170D 


902 


DC 


XL5"4E02000000' 


170E 


1A0003 


1710 


903 


DC 


XL 3' 1AO00 3' 


1711 


4E0A000000 


1715 


904 


DC 


XL5'4EOA0O00O0' 


1716 


1A000E 


1718 


905 


DC 


XL 3' 1AO00E' 


1719 


3AC218 


171B 


906 


DC 


XL3 '3AC218' 


171C 


1A0E01 


1 71 E 


907 


DC 


XL3' 1AOE01 ' 


171F 


2A11 


1720 


908 


DC 


XL2 '2A1 1 • 


1721 


2416 


1722 


909 


DC 


XL2' 2416* 


172 3 


4E0A 040000 


172 7 


910 


DC 


XL5 ■4EOA040000« 


1728 


1 AOOOO 


172A 


911 


DC 


XL3' 1AO00O' 


172B 


4A 


172B 


912 


DC 


XL1 '4A' 


172C 


0AD5 


172D 


913 


DC 


AL2 (RAFT) 








914 ********READ 


DATA DIAG CLOCK 


172E 


1730 


172F 


915 CAT 


Lt\~ 


AL2 (TOM) 


1730 


40 


1730 


916 T' PI 


DC 


XL1 « 40' 


1 V 3 1 


03 


1731 


917 


DC 


XL1 '03 • 


1732 


525S66 


1734 


918 


DC 


XL3 '525E66 ' 


1735 


2E0i 


1736 


919 


DC 


XL2'2E01' 


1737 


8001 


1738 


92 


DC 


XL2'300 V 


1739 


C005 


173A 


921 


DC 


XL2'C0O5' 


173B 


1E 


173B 


922 


DC 


XL1 '1E« 


173C 


COOD 


173D 


923 


DC 


XL2'C0OD' 


173E 


2A10 


173F 


924 


DC 


XL2 '2A10' 


1740 


1A000A 


1742 


92 5 


DC 


XL3' 1 AO00A' 


1743 


3AC2 18 


1745 


926 


DC 


XL3' 3AC21 8' 


1746 


1A0E01 


174 8 


927 


DC 


XL3 '1 AOEO 1 • 


1749 


4410 


174A 


928 


DC 


XI.2' 4410' 


174B 


1A0O0A 


174D 


929 


DC- 


5lL3 ' 1 AO00A' 


17';E 


3AC21C 


1750 


9 30 


DC 


XL3 3AC21C 


1751 


1A0E01 


1753 


°31 


DC 


XL3 '1AOE01 ■ 


1754 


2AM 


1755 


932 


DC 


XL2' 2A11' 


1756 


1AFF01 


1758 


933 


DC 


XL3 MAFFO 1 • 


1759 


1 A00O1 


17^8 


934 


DC 


XL3* 1AOO0V 


175C 


1A0002 


i:5E 


935 


DC 


XL3MA0002' 


175F 


OA 


',75F 


936 


DC 


XL 1'0A' 


1760 


1PE4 


1761 


937 


DC 


1\L2 (ARNEO) 


DATE 


02MAP70 


1.: >R7 


O6NAY70 


01JUL70 01MAR71 


EC NO. 


571512 


571516 


571513 


571524 


571573 



i tYTES T D FORCE MISSING AM 

.SET BUSY ON EnH ON 

3 BYTES FF IDCC 
SET BUSY ERROR ON 

4 BYTES FF POST ID DEC 1 

TEST STAT MISSING AM NO R EC FND 
SET BUSY OFF ERROR ON 

1 BYTE 

BRANCH TO WHITE ID FT 

HEAD DATA 1 PAKA 

2 OSC 
BESET 

SET IND BUSY ON ERROR OFF 

IN IT SET TO 8 

11 BYTES 

GOOD A M 

SYNC CHAR 

SET IND BUSY ERR 

1 BYTE FF ID 
TEST STATUS 

2 BYTES ID 
1 BYTE FF 



TRK CD C4K 



CC CHAR 1 



CC CHAK 2 
CC CHAR 3 



1 BYTE 

1 EYTS F7 

14 BYTES 

GOOD A M 

SYNC CHAR 

4PYTES ID AND 1 CC 

STAT TRK COND 

3 BYTES 

STAT TRK CD SISS A 

14 BYTES 

GOOD A M 

SYNC CHAR 

SET IND NOT BUSY ERROR 

22 OSC KITH INH DATA CY R2Q 



DATA CK 



2 BYTES 
ERANCH TO READ 



)ATA 2 



STEP FUNCTION TEST ************* 

READ DIAG PARA 

TESTS ABSENCE OF SET TO 8 
BESET 
TEST SENS 

1 INDEX 

5 INDEX AND OSC 

IND INITIALIZE TO 5?.f> DEC 1 
13 IND AND OSC TO BR 6 
SEI BUSY ON ERHOR OFF 
10 BYTES 00 
GOOD AM 
1 SYNC CHAR 

16 OSC AND INH DATA CY HE* 
10 BYTES 00 
BAD AM 
SYNC CHAR 
SET BUSY ON ERS ON 



PROG ID 
PAGE 



OA01-4 
7A 



I PI MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



51296-11 

8 



A0 14 



FILE CONTROL UNIT FL7 SECTION 1 



E n ° LOC 


OLUF.CT CODF 


ADDR 


:jtmt source 


STATEMENT 


176,' 


OE 


1762 


93 8 


DC 


XI. 1 'OE' 


176) 


1 803 


1 H>4 


939 


DC- 


AL i ;OBOE) 


1 76^ 


4E0EOOO0OO 


1769 


940 


DC 


XLS '4EOEO00O0O' 


176A 


1 AC 318 


176C 


941 


DC 


X!, 3' JAC318' 


176D 


:'A if 


176F. 


942 


DC 


XL2 '2A10 • 


176F 


1 A0F01 


1771 


943 


CC 


XL3' 1A0EO1 • 


1772 


2A11 


177) 


944 


DC 


XL2 '2A11 ' 


1774 


1AFF01 


1776 


945 


DC 


XL3' 1AFF01' 


1777 


1 A 00 01 


1779 


94 b 


DC 


XL3 '1 A00O1" 


177A 


1A0401 


177C 


947 


DC 


XL3' 1A0401' 


177D 


OE 


17^3 


948 


DC 


XL1 »0 E» 


1 77F 


1 803 


^77F 


94 9 


DC 


AL2 (OBOE) 


1780 


420EOOOOOO 


17 84 


950 


DC- 


XL5'420EO00O00' 


1785 


3A8318 


1787 


951 


DC 


XL3' 3A8318' 


17B8 


2A10 


1789 


952 


DC 


XL2'2A10 • 


178A 


U0E01 


17 8C 


95 3 


DC 


XL3 ' 1 A0EO1 ' 


17SD 


1 A0003 


178F 


954 


DC 


XL3' 1A0OO3' 


1790 


2A 11 


1791 


955 


DC 


XL2 '2A11 " 


1792 


OE 


1792 


956 


DC 


XLTOE' 


179 3 


1803 


1794 


957 


DC 


AI "t (OBOE) 


1795 


3AC218 


1797 


958 


DC 


XL3'3AC218' 


1798 


2A10 


1799 


959 


DC 


XL2'2A10' 


179A 


1A0E0 1 


179C 


96 


DC 


XL3' 1 AOEO' 1 


179D 


1 A0002 


179F 


961 


DC 


XL3" 1A0002' 


17 AO 


1A0401 


17A2 


962 


DC 


XL3'1 A04OV 


17 A3 


2A11 


17A4 


963 


DC 


XL2'2A1T 


17A5 


OE 


17A5 


964 


DC 


XL1 'OE' 


17A6 


1303 


17A7 


965 


DC 


AL2 (OBOE) 


17*8 


1A0002 


17AA 


966 


DC 


XL3'1A0OO2' 


17A3 


8001 


17AC 


967 


DC 


XL2'8001» 


17AD 


4E0C0OO80O 


17B1 


968 


DC 


XL5'4EOCOGC800' 


1732 


E003 


17B3 


969 


DC 


XL2 , E003« 


1734 


2A01 


17B5 


970 


DC 


XL2' 2A01' 


1736 


1A0001 


1 7B8 


971 


DC 


XL3 '1A0OOV 


173? 


4EOC200000 


17BD 


972 


DC 


XL5 1 4E0C200OCO' 


1 7BE 


4A 


173E 


973 


DC 


XL1 '4A» 


17EF 


0B3D 


17C0 


974 


CC 


AL2 (SOFT) 


17C1 


17C3 


17C2 


975 TROT 


DC 


AL2(TREK) 


17C3 


40 


17C3 


976 TREK 


DC 


XL1 '40' 


17C4 


03 


17c<. 


977 


DC 


XL 1'03« 


17C5 


525E66 


17C7 


97 8 


DC 


XL3 '525E66' 


17CS 


2A10 


17C9 


979 


DC 


XL 2' 2A10» 


17CA 


2E01 


17C3 


980 


DC 


XL2 '2E01 • 


17CC 


80 01 


17CD 


981 


DC 


XL2'8001« 


17CE 


E005 


17CF 


982 


DC 


XL2 'EO05' 


17D0 


1 E 


17D0 


983 


DC 


XL1' 1E 1 


17D1 


400D 


17D2 


984 


DC 


XL2 '400D' 


17D3 


1A0038 


17D5 


985 


DC 


XL3' 1A0O38' 


17D6 


OA 


17D6 


986 


DC 


XL1 '0 A' 


17D7 


1FE4 


17D8 


987 


DC 


AL2 (AKNE*3) 


17D9 


1 A 00 10 


17DB 


988 


DC 


XL3« 1A0O10- 


17DC 


OA 


17DC 


989 


DC 


XL1 'OA' 


17DD 


IFE1 


17DE 


990 


DC 


AL2(ABNE) 


17DF 


0210100016 


17E3 


991 


DC 


XL5 '0210 1000 16 ■ 


17E4 


1 AOOOO 


17E6 


992 


DC 


XL3" 1A0OO0' 


'>' , E7 


C6 


17E7 


993 


DC 


XL1 *06» 


17E8 


1 EEO 


17E9 


994 


DC 


AL2 (BARN) 


17EA 


3E 


17EA 


995 


DC 


XLT3E' 


17EB 


1A0000 


1 7ED 


996 


DC 


XL3'1A0OO0' 


17EE 


1AO0OO 


17F0 


997 


DC 


XL3- 1A0OO0' 


17F1 


E010 


17F2 


998 


DC 


XL2'E010 « 


17F3 


1 A0004 


17F5 


999 


DC 


XL3' 1A0004' 


17F6 


2A00 


17F7 


1000 


DC 


XL2'2A0O • 


17F8 


02101004FF 


17FC 


1001 


CC 


XLS'OilOIOOUFF' 


17FD 


1A0003 


17FF 


1002 


DC 


XL3M A0OO3' 


1300 


4A 


1800 


1003 


DC 


XL1'4A' 


1301 


0B5S 


1802 


1004 


DC 


AL2 (FILET) 


1903 


06 


1803 


1005 OBOE 


DC 


XLI'06' 


DATE 


02MAR70 


1APR70 


06BAY70 


01JUL70 01HA871 


EC NO. 


571512 


571516 


571513 


571524 


571573 



GO TO ALT PARA FOB 

DIAG IDCC TO POST DATA 

TEST STATUS 

BAD Afl 

SET BUSY ON bRROR OFF 

SET BUSY ON ERR ON 
ONE BYTE FF 
1 EYTE 00 

1 BYTE 04 

GO TO ALT PARA FOR 

DIAG IDCC TO POST DATA 

TEST STAUUS 

EAt AM 

SET BUSY ON ERR OFF 

SlUC CHAR 

3 BYTES 00 ID 

SET BUSY ON ERR ON 

GC TO ALT PARA FOP 

EIAG IDCC TO POST DATA 

GOOD AH 

SET BUSY NO ERR 

SYNC CHAR 

2 BYTES 00 
1 BYTE 04 

SET BUSY ON ERR ON 
GO TO ALT PARA 
DIAG IDCC TO POST DATA 
TWO BYTES 



3 INDEX AND OSC 

SET BUSY OFF ERROR ON 

1 EYTE 00 



RESET 

SET BUSY, NO ERROR 

TEST SENSE PROBES 



BRANCH TO NEXT ROUTINE 



PROG ID 
PAGE 



0A01-4 
8 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
FACE 



SI 296 1 1 

8A 



A014 



FILE CONTROL UNIT FLT -SECTION 1 



ERB LOC 


OBJECT CODE 


ADDR 


STMT SOURCE 


stat 


EMENT 


1804 


1EE0 


18 5 


1006 


DC 


AL2(BARN) 


1806 


OA 


18 06 


1 00 7 


DC 


XL1 'OA' 


1807 


1 FE4 


1808 


1008 


DC 


AL2 (ARNE + i) 


1809 


1AFF01 


18 OB 


1009 


DC 


XL3' 1AFF01 • 


180C 


1A0401 


180E 


1010 


DC- 


XL3' 1 A0401 • 


180F 


1AF601 


18 1 1 


101 1 


DC 


XL3' 1AF601 • 


1812 


1AOO0C 


1814 


1012 


U K, 


XLJ'1 A0O0C* 


1815 


1AOE01 


1817 


10 13 


DC 


XL3' 1A0E01 • 


1818 


1AO000 


181A 


1014 


DC 


XL1' 1 A0O00 • 


181B 


1A0014 


181D 


1015 


DC 


XL 3' 1A0O14' 


181Z 


OA 


1U1E 


1016 


DC 


XLI'OA' 


1 81F 


1FE1 


1820 


1 017 


DC 


AL2 (ARNE) 


1821 


12 


1821 


101-3 


DC 


XL 1' 12' 


1822 


3A 


1822 


1019 FLO 


DC 


XL1 ' 3A> 


1823 


C218 


1824 


1020 


DC- 


XL2'C218' 


1825 


2A10 


1826 


1021 


DC 


XL2'2A10 ' 


1827 


1AOE0 1 


1829 


1022 


DC 


XLJ' 1 A0E01 • 


182A 


UOO02 


182C 


1023 


DC 


XL J' 1A0O02 ■ 


182D 


1A5401 


182F 


102'. 


DC 


XL3 '1 A5401 • 


1830 


2A1 1 


1831 


1025 


CC 


XL2' 2A1 1 ■ 


1832 


1AFF01 


1834 


1026 


DC 


XL3 ■ 1 AFF0 1 ' 


1835 


1AAB01 


1837 


1027 


DC 


XL3' 1AAB01 • 


1838 


1AFC02 


183A 


1028 


DC 


XL3' 1AFC02 ' 


183B 


1AO010 


183D 


1029 


DC 


XLJ* 1 ACO10 • 


183E 


1AOE01 


1840 


1030 


DC 


XLJ' 1A0E01 • 


1841 


1AO000 


1843 


1031 


DC 


XL3 • 1 A0O00 » 


1844 


1600 


1845 


1032 


DC 


XL2' 1600' 


1846 


12 


1846 


1033 


DC 


XL1 '12' 


1847 


40 


1847 


1034 IMP 


DC 


XL". '40' 


1848 


02 


1848 


1035 


DC 


XLV02' 


1849 


525E66 


184B 


1036 


DC 


XL3'525E66 • 


184C 


2A10 


134D 


1037 


DC 


XL2'2A10' 


184E 


22 


184E 


103 8 


DC 


XL1 '22' 


184F 


1 AO00B 


1851 


1039 


DC 


XL3' 1A00O3' 


1852 


12 


1852 


1040 


DC 


XL1 '12' 


1853 


1A 


1853 


1041 URN 


DC 


XL1' 1A' 


1854 


0EO1 


1855 


104 2 


DC 


XL2 'OEO T 


1856 


1AO002 


1858 


104 3 


DC 


XL3' 1A0002 « 


1859 


1A5401 


18 5B 


1044 


DC 


XL3' 1 A5401 • 


185C 


U FF01 


185E 


1045 


DC 


XL3« 1AFF01 • 


185F 


1AAB01 


1861 


1046 


DC 


XL3'1 AAB01 • 


1862 


1 AFC01 


1864 


1047 


DC 


XL3' 1AFC01 • 


1865 


OA 


1865 


1048 


DC 


XL1 'OA' 


1866 


1FE4 


1867 


1049 


DC- 


AL2 (ARNE+3) 


18bb 


12 


1868 


1050 


DC 


XL1» 1 2' 


1869 


1A 


1869 


1051 ALICE 


DC 


XL1' 1A' 


186A 


0EO1 


186B 


1052 


DC 


XL2'OE01 ' 


186C 


1AO002 


186E 


1053 


DC 


XL3 «1 A0O02 • " 


186F 


1A5801 


1871 


1054 


DC 


XL3' 1A5801 • 


1872 


1AFF01 


1874 


1055 


DC 


XL3 «1 AFF01 • 


1875 


1AA701 


1877 


1056 


DC 


XL3' 1AA70"! • 


1978 


UFC01 


187A 


1057 


DC 


XL3 '1 AFC01 • 


187B 


OA 


187B 


1056 


DC 


XL 1' OA' 


1C-7C 


1FE4 


187D 


1CS9 


DC 


AL2 ( A8NE+3) 


187E 


12 


187E 


106 


DC 


XLI'12 1 


187F 


1A 


187F 


1061 PONY 


DC 


XL1 • 1A' 


1880 


0010 


1881 


1062 


DC 


XL2'O01O' 


1882 


1AOE01 


1834 


106 3 


DC 


XL3' 1AOE01 • 


1885 


12 


1885 


1064 


DC 


XL1» 12' 


1886 


1A 


1886 


1065 FOLKS 


DC 


XLV 1A' 


1887 


FF01 


1883 


1066 


DC 


XL2'FF01 • 


1889 


06 


1889 


1067 


DC 


XL1»06' 


138A 


1FE0 


188B 


1068 


DC 


AL2(BARN + 256) 


188C 


1AFD01 


188E 


106 9 


DC 


XL3 ' 1 AFD01 • 


188F 


1 AO00E 


1891 


1070 


DC 


XL3' 1AOO0E' 


1892 


06 


1892 


1071 


DC 


XL1 '06' 


1893 


1EE0 


1894 


1072 


DC 


AL2 (BARN) 


1895 


12 


1895 


107 3 


DC 


XL1« 12' 


DATE 


, 02 !Ah70 


01APR70 


06HAY70 


01JUL70 01BAB71 


EC NO. 


571512 


571516 


571513 


571524 571573 



COMP DFCR 

CC 1 
CC 2 
CC 3 
12 BYTES 00 

1 BYTE OE 
256 EYTES 00 
20 3YTES 00 

COMP DFCR 
COMP 

RETURN TO MAJOR PARA 
ALT PARA FOR AM THRU DATA 
GOOD AM 

EU5Y ON ERROR OFF 
SYNC CHAR 

2 BYTES 00 ID 
1 BYTE 54 

SET BUSY AND ERROR ON 
1 BYTE FF 

1 BYT„ AB 

2 BYTES FC 
16 BYTES 00 
SYNC CHAR 
256 BYTES 00 

COMP DATA 
RETURN TO MAJOR PARA 
ALTPARA FOR INIT SET TO 8 H/O SNS 

BESET 

SET 3USY NO ERROR 

SET TO 8 INITIALIZE 

11 3YTES 00 

RETURN TO MAJOR PARA 

ALT PARA FOR ODD rtDDRESS 

SYNC CHAR 

2 BVTES 00 

1 BYTE 54 

1 BYTE FF 

1 EYTE AB 

1 BYTE FC 
COMP DFCR 

RETURN TO MAJOR PARA 
ALT PARA FOR EVEN ADDR 
SYNC CHAR 

2 EYTES 00 ID 
1 BYTE 5 8 

1 BYTE FF 
1 BYTE A7 
1 EYTE FC 
COMP DFCR 

RETURN TO MAJOR PARA 

ALT PARA FOR POST ID AND PRE DATA 

16 BYTES 00 

SYNC CHAR 

RETURN TO MAJOR PARA 

ALI PARA FOR DATA CC 2+3 , POST DAT 

1 BYTE FF 

COMP DFDR 

1 EYTE FD CC3 

14 BYTES 00 POST DATA 

COMP DFPR 

RETURN TO MAJOR PARA 



PROG ID 
PAGE 



OA01-4 
8A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PACE 



5129611 
9 



ao i 4 



filj: control unit flt section 1 



ER? LOC OBJECT CODS 



ADDR STMT SOURCE STATEMENT 



1 ■'■■if, 


1 8 1 8 


1897 


1074 BLOB 


DC 


AL2(BLOB1) 


1898 


E0 


1898 


1075 3L0B1 


DC 


XLV EO' 


1 8 c ) 9 


07 


1899 


•,076 


DC 


XLl'07' 


189A 


2F.01 


1893 


1077 


DC 


XL2'2E01« 


189C 


2A10 


189D 


1078 


DC 


XL2' 2A10' 


189E 


1AFF01 


18A0 


107S 


DC 


XL3 • 1 AFFO 1 • 


1 HA1 


80O1 


18A2 


1080 


DC 


XL2' 800V 


1 HA J 


E005 


18A4 


1081 


DC 


XL2 'E005' 


18A5 


IE 


18A5 


1082 


DC 


XL1' IE' 


18A6 


C00D 


18A7 


1083 


■)C 


XL2 'COOD' 


1 hAH 


1AO02O 


18AA 


1084 


DC 


XL3' 1A0020" 


1 BAB 


OE 


18A3 


1085 


DC 


XL1 '0E« 


18AC 


1822 


18AD 


1086 


DC 


AL2 (FLO) 


18AE 


1A0025 


18B0 


1087 


DC 


XL3' 1A002S' 


18B1 


OE 


18B1 


1088 


DC 


XL1 'OE' 


1 852 


1822 


18B3 


1089 


DC 


AL2 (FLO) 


18BU 


4A 


18B4 


1090 


DC 


XL1 '4A' 


1835 


12C4 


18B6 


1091 


DC 


AL2 ;gcut) 


18B7 


1859 


18B8 


1092 BLOT 


DC- 


AL2(BLOT1) 


18B9 


OE 


18B9 


1093 3LOT1 


DC 


XL1 'OE' 


18BA 


1847 


18BB 


1094 


DC 


AL2 (IMP) 


18BC 


3AC218 


18BE 


1095 


DC 


XL3'3AC218« 


18BF 


1AOE01 


18C1 


1096 


DC 


XL3' 1A0E01' 


18C2 


1AFC01 


18C4 


1097 


DC 


XL3' 1AFC01 ' 


18C5 


1AO301 


18C7 


1098 


DC 


XL3' 1A0 30V 


1 3C8 


1 A5801 


18CA 


1099 


DC 


XL3' 1A580V 


18CB 


1AFC01 


18CD 


1100 


DC 


XL3 • 1 AFC01 • 


18CE 


1A5B01 


18 DO 


1101 


DC 


XL3' 1A5B0V 


18D1 


1AF401 


18D3 


1102 


DC 


XL3 '1 AF401 * 


18D4 


1K.0014 


18 D6 


1103 


DC 


XL3' 1A0014' 


18D7 


E0O0 


18D8 


1104 


DC 


XL2 ' E00O» 


18D9 


2A1 1 


18DA 


1105 


DC 


XL2' 2A11' 


18DB 


1AO02O 


18DD 


1106 


DC 


XL3 MA0020 • 


18DE 


3AC21& 


18E0 


1107 


DC- 


XL3' 3AC218' 


18E1 


OE 


18E1 


1108 


DC 


XL1 'OE' 


18E2 


1853 


18E3 


1109 


DC 


AL2 (URN) 


18E4 


2A10 


18E5 


1110 


DC 


XL2'2A10 ' 


18£6 


noon 


18E8 


1,11 


DC 


XL3' 1AC011' 


18E9 


4008 


18EA 


1112 


DC 


XL2" 4C08' 


18EB 


2E01 


18EC 


1113 


DC 


XL2 '2E0 1 ' 


18ED 


4002 


18EE 


1114 


DC 


XL2' 4002' 


18EF 


2EO0 


18F0 


1115 


DC 


XL2 '2E0O' 


18F1 


1006 


18F2 


1 11& 


DC 


XL2' 4006' 


18F3 


1AO00O 


18F5 


1117 


DC 


XL3MAO000 • 


18F6 


1A0TIU 


18F8 


1118 


DC 


XLi« 1A0014' 


18F9 


3,V. "18 


13FB 


1119 


DC 


XL3'3AC218' 


18FC 


1A0L-11 


18FE 


1120 


DC 


XL3' 1AOE01' 


18FF 


1AO0C2 


1901 


1121 


DC 


XL3 '1A0002' 


1902 


1A5401 


1904 


1122 


DC 


XL3' 1A5401' 


1905 


2A11 


1906 


1123 


DC 


XL2'2A11' 


1907 


1AFFG1 


1909 


1124 


DC 


XL3' 1AFF01 ' 


190A 


1AAB01 


190C 


1120 


DC 


)L3 '1AAB01 • 


190D 


1 AFC01 


190F 


1126 


DC 


XL3« 1AFC01 » 


1910 


1AO004 


1912 


1127 


DC 


XI.3'1A0004 • 


1913 


2A01 


1914 


1128 


DC 


XL2" 2AOV 


1915 


4E04000000 


1919 


1129 


DC 


XL5 '4E04000000' 


191A 


1A0001 


191C 


1130 


DC 


XL3' 1A0001 • 


191D 


4A 


191D 


1131 


DC 


XL1 «4A» 


191E 


0BC3 


191F 


1132 


DC 


AL2 (SOLAR) 


1920 


1922 


1921 


1133 BLAB 


DC 


AL2(BI.AB1) 


1922 


OE 


1922 


1134 ELAB1 


DC 


XLI'OE' 


1923 


1847 


1924 


1135 


DC 


AL2(I«P) 


1925 


3AC218 


1927 


1136 


DC 


XL3'3AC218« 


1 92 8 


OE 


1928 


1137 


DC 


xitoe' 


1929 


1853 


192A 


1138 


DC 


AL2 (URN) 


192B 


OE 


192B 


1139 


DC 


XLI'OE' 


192C 


187F 


1C2D 


1140 


DC 


AL2(PONY) 


192E 


1A1201 


1930 


1141 


DC 


XL3« 1A1201' 


DATE 


02HAR70 


01 APR70 


06HAY7O 


01JUL70 01MAR71 


EC NO. 


571512 


571516 


571513 


5715 24 571573 



7 OSC INDEX AND SEP CLK 

TEST NOT BIT RING 

SET BUSY ON EHH OFF 

1 BYTE FF 

1 INDEX 

5 INDEX AND OSC AND SEP CLK 

INDEX INITIALIZE 

13 IND AND OSC TO BR 6 

32 BYTES 00 

GO TO ALT PARA FOR 

37 BYTES 00 

GO TO ALT PARA FOR 

GO TO NEXT ROUTINE 



GO TO ALT PARA FOR 



GOOD AM 




SYNC CHAR 




1 BYTE FC 




1 EYTE 3 




1 BYTE 58 




1 EYTE FC 




1 BYTE 5 B 




20 BYTES 00 




256 INDEX OSC SEP 


CLK 


SET BUSY AND ERROR 


ON 


32 BYTES 00 




GOOD AM 




GO TO ALT PARA FOB 





SEI BUSY NO ERROR 

17 BYTES 00 

8 OSC 

TEST SENSE PROBES 

2 OSC 

TEST SENSE PROBES 

6 OSC 

256 BYTES 00 

20 BYTES 00 

GOOD AM 

SYNC CHAR 

2 BYTES 00 ID 

1 BYTE 54 

SET BUSY AND ERROR ON 

1 BYTE FF 

1 BYTE AB 

1 BYTE FC 
4 BYTES 00 
SET BUSY OFF ERF ON 
TEST STATNO REC FND 
1 BYTE 00 
GO TO NEXT ROUTINE 



GO TO ALT ROUTINE 

GOOD AH 

GO TO ALT PARA FOB 

GO TO ALT PARA FOR 

1 BUu 12 



PROG ID 0A01-4 

PAGE 9 



IBB MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



r > 1296 1 1 
9 A 



aou 



FILE CONTROL UNIT FLT SECTION 1 



ERB LOC OBJECT CODE 



ADDS STBT -SOURCE STATEBENT 



1931 


1AO0FF 


1913 


1 142 


DC 


XLJ' 1 AOOFF' 


255 BU 




19 34 


1 AED01 


19 36 


1143 


DC 


XL 3' 1AED01 • 


1 BYTE E„ 




1937 


OE 


19 37 


1 144 


dc: 


XI1 'OE' 


GO TO ALT 


ROUT IN E 


1938 


1886 


19 39 


1145 


DC 


AL2 (FOLKS) 






193A 


7AO0 


19 3B 


1 146 


DC 


XL2'7A0O' 


TEST NOT SCAN FOUND 


19 3C 


1A0004 


193E 


1 147 


DC 


XL3' 1 A0O04 • 


4 BYTES 00 




193F 


06 


193F 


1 148 


DC 


XL1 '06' 


COBP Dr DR 




1940 


1EF0 


1941 


1 144 


DC 


AL2 (BArfN) 






1 9U2 


3AC218 


1944 


115o 


DC 


XLJ' 3AC218' 


.;ood 


AM 


1945 


OE 


1945 


1151 


DC 


XL1 'OE' 


GO TO ALT 


PASA FOR 


1946 


1869 


1947 


1 152 


DC 


AL2 (ALICE) 






1948 


OE 


1948 


1 153 


DC 


XLTOE' 


GC TO ALT 


ROUTINE 


19 49 


187F 


194A 


1154 


DC 


AL2 (PONY) 






194B 


1A0601 


194D 


1 155 


DC 


XL3' 1A0601 • 


1 3YTE 06 




194E 


1AO0FF 


1950 


1 156 


DC- 


XL3 ' 1 AOOFF' 


255 BYTES 





1951 


1AF901 


1953 


1 157 


DC 


XL3' 1AF901 • 


1 BYTE F9 




1 954 


OE 


1954 


1 153 


DC 


XL1 'OE' 


GO TO ALT 


PARA FOR 


1955 


1886 


1956 


1 159 


DC 


AL2 (FOLKS) 






1957 


4EO0CO0000 


195B 


1 160 


DC 


XL5'4E0O00OO0O« 


TEST STATUS 


19 5C 


7A01 


195D 


1 161 


DC 


XL2'7A0T 


TEST SCAN 


FOUND 


l^oE 


2AO0 


195F 


1 162 


DC- 


XL2» 2A00' 


BUSY OFF ERROR OFF 


1900 


1AFF01 


;962 


1 163 


DC 


XL3' 1AFF01 • 


1 EYTE FF 




1963 


4A 


1J63 


1 164 


DC 


XL1' 4A' 


GO TO NEXT 


' ROUTINE 


1964 


03E1 


1965 


1 165 


DC 


AL2 (SOUND) 






".966 


1968 


■""•67 


1166 BRAN 


DC 


AL2 (BEAN1) 






196b 


OE 


T68 


1167 BRAN1 


DC 


XLTOE' 


GO TO ALT 


ROUTINE 


1969 


1847 


196A 


1168 


DC 


AL2 (IBP) 






196B 


3AC218 


196D 


1 169 


DC 


XL3' 3AC218' 


GOOD 


Afi 


196E 


OE 


196E 


1 170 


DC 


XL1 'OE' 


GO TO ALT 


PARA FOR 


196F 


1353 


1970 


1 171 


DC 


AL2 (U8N) 






1971 


OS 


(971 


1172 


DC 


XLTOE' 


GO TO ALT 


PARA FOR 


197 2 


18 ' 


1973 


1 173 


DC 


AL2 (PCNY) 






1974 


UObOl 


1976 


1 174 


DC 


XL3« 1A0601 • 


1 BYTE 06 




1977 


1AO0FF 


■•979 


1175 


DC 


XL3 * 1 AOOFF ' 


^55 pi! 




197A 


1AF901 


I97C 


1 176 


DC 


XL3' 1AF901 • 


1 BYTE F9 




197D 


OE 


197D 


1 177 


DC 


XL1 'OE' 


GO TO ALT 


ROUTINE 


197E 


1886 


197F 


1 178 


DC 


AL2 (FOLKS) 






1980 


7AO0 


1981 


1 179 


DC 


XL2'7AOO' 


TEST NOT SCAN FOUND 


1982 


1A0004 


1984 


1 180 


DC 


XL3' 1A0004 • 


4 EYTES 00 


1985 


06 


1985 


1181 


DC 


XLT 06' 


COBP DFDK 




1986 


1EE0 


1987 


1 182 


DC 


AL2 (BARN) 






1 988 


3AC218 


198A 


1 183 


DC 


XL3' 3AC218' 


GOOD 


a a 


198B 


OE 


198B 


1 184 


DC 


XL1 'OE' 


GO TO ALT 


PARA FOR 


19 8C 


1869 


19SD 


1 185 


DC 


AL2 (ALICE) 






198E 


2 


198E 


1 18b 


DC 


XL1 "OE" 


GO TO ALT 


ROUTINE 


198F 


18 7F 


1990 


1187 


DC 


AL? (PCNY) 






1991 


1A1201 


1993 


1 188 


DC 


XL3» 1A1201 ' 


1 BYTE 12 




1994 


1A00FF 


1996 


1 189 


DC 


XL3 "1 AOOFF' 


255 BYTES 


00 


1997 


1AED01 


1999 


1190 


DC 


XL3' 1AED01 • 


1 BYTE ED 




199A 


OE 


199A 


1 191 


DC 


XL1 , OE« 


GO TO ALT 


PARA FOR 


199B 


188^ 


199C 


1 192 


EC 


AL2 (FOLKS) 






199D 


UEOOOOOOOO 


19A1 


1193 


DC 


XL5'4EO00000C0' 


TEST STATUS 


19A2 


7A01 


19A3 


1 194 


DC 


XL2«7A01» 


TEST SCAN 


FOUND 


19.\4 


2A00 


19A5 


1195 


DC 


XL2«2A00' 


BUSY OFF 


ERROR OFF 


19Ab 


1AFF01 


19A8 


1196 


DC 


XL3' 1AFF01 • 


1 fYTE FF 




19A9 


4A 


19A9 


1197 


DC 


XLT 4A« 


GO TO NEXT ROUTINE 


19AA 


OBFF 


19AB 


1 198 


DC 


AL2 (NCLA) 






19AC 


19AE 


19AD 


1199 BIRD 


DC 


AL2 (BIHD1) 






19AE 


OE 


19AE 


1200 BIRD1 


DC 


XL1 •OE' 


GC TO ALT 


ROUTINE 


19AF 


.^47 


19B0 


1201 


DC 


AL2 (IBP) 






19B1 


3AC218 


19B3 


1202 


DC 


XL3* 3AC218" 


GOOD 


AM 


19B4 


26 


19B4 


1203 


DC 


XL1 '26 ■ 


RESET DFDR 


19B5 


OE 


19B5 


1204 


DC 


XLTOE' 


GO TO ALT 


PARA FOR 


19B6 


1853 


19B7 


1205 


DC 


AL2 (URN) 






19Bo 


OE 


19B8 


1206 


DC 


XL1 '0E» 


GO TO ALT 


PARA FOR 


19B9 


187F 


19BA 


1207 


DC 


AL2 (PONY) 






19BB 


1A1101 


19BD 


1203 


DC 


XL3« 1A110T 


1 EYTE 11 




19BE 


1 AOOFF 


19C0 


120"> 


DC 


XL3» 1AOOFF' 


255 BU 




DATE 


D2HAR70 


01APR70 


06MAY70 


OiJUL.70 01HAR7 1 






EC NO. 


571512 


571516 


571513 


571524 


571573 







PROG ID 
PAGE 



0A01-4 
9A 



IBM MAINTENANCE DIAGNOSTIC PHOGRAM 



PAHT NO. 
PAGE 



5129611 

10 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ERR LOC OBJECT CODE 



ADDS STMT SOURCE STATEMENT 



DATE 
EC 



19C1 


1 Ae 


:eoi 




19C3 


1210 


DC 


XLJ' 1ASE01 ■ 


19C4 


0E 






19C4 


1211 


DC 


XL1 »0E' 


19C5 


1 886 




19C6 


1212 


DC 


AL2 (FOLKS) 


19C7 


7A01 




19C8 


1213 


DC 


XL2'7A0 V 


19C9 


4E00800000 


19CD 


1214 


DC 


XL5'4EOO800O0O' 


19CE 


2A0O 




19CF 


1215 


DC 


XL2' 2AO0' 


19D0 


1AF 


•foi 




i9D2 


1216 


DC 


XL3 • 1 AFF0 1 ■ 


19D3 


UJ 






19D3 


1 '17 


DC 


XLV 4A' 


19D4 


0C1D 




19D5 


1218 


DC 


AL2 (BRAND) 


19D6 


19D8 




19D7 


1219 HAND 


DC 


AL2 (HANDS) 


19D8 


40 






19D8 


1220 HANDS 


DC 


XL1 '40' 


19D9 


02 






19D9 


1221 


DC 


XLV02' 


19DA 


22 






19DA 


1222 


DC 


XL1' 22' 


19DB 


2A10 




19DC 


1223 


DC 


XL2 '2A10 ' 


19DD 


1 AFF03 




19DF 


1224 


DC 


XL3' 1AFF03" 


19E0 


UOC 


Hi 




19E1 


1»2 5 


DC 


Xt 2 '4004 • 


19E2 


2E01 




19E3 


1226 


DC 


XI.2'2E01* 


19E4 


402C 




19E5 


1227 


DC 


XL2'402C 


19E6 


2202 




19E7 


1228 


DC 


XL2'2E02' 


19E8 


1 A0004 




19EA 


1229 


DC 


XL3« 1A0004' 


19EE 


3AC218 




19ED 


1230 


DC 


XL3 '3AC218 ' 


19EE 


2A10 




19EF 


1231 


DC 


XL2' 2A10« 


19F0 


1AC 


IE0 1 




19F2 


1232 


DC 


XL3 ' 1AOE01 • 


19F3 


1 A00 03 




19F5 


1233 


DC 


XL3« 1A0003' 


19F6 


1AFF04 




19F8 


1234 


DC 


XL3 • 1 AFF04 • 


19F9 


6410 




19FA 


1235 


DC 


XL2' 6410' 


19F3 


1AE 


■FOF 




19FD 


1236 


DC 


XL3 MAFFOF' 


19FE 


1A0E01 




1A00 


1237 


DC 


XL3» 1AOE01 ' 


no i 


2400 




1A02 


1238 


DC 


■J.V2 '2400' 


1A03 


1 A0OE0 




1A05 


12 19 


DC 


XL J ' 1 AC GEO ' 


1A06 


1AFF11 




1A08 


1240 


DC 


XL3 '1AFF11 ' 


1A09 


2A0G 




1A0A 


1241 


DC 


XL2'^A00* 


1A03 


1'iFFOI 




1A0D 


1242 


DJ 


X~3 ' 1AFF01 ' 


1A0E 


'008 




1A0F 


1243 


DC 


XL2' 8008' 


1A10 


OOC 


)', 




1A11 


1244 


DC 


XL2 '0001 • 


1A12 


8001 




1A13 


1245 


DC 


XL2' 8001' 


1A14 


1AFF01 




1A16 


1246 


DC 


XL3 M AFFO" ■ 


1A17 


4A 






1A17 


1247 


DC 


XL1 ' 4A' 


1A18 


0C31 




1A19 


1248 


DC 


AL2 (VIRG) 


1A1 A 


CO 


87 


02U 




1249 END 


3 


PRINT 


1A1E 


IS 






1A1E 


1250 


DC 


XL1 MS' 


1 A1F 


CO 


87 


0222 




1251 


B 


HALT 


1A23 


A001 




1A24 


1252 


■ DC 


XL2 'A00 1 • 












1253 * CHECK UDT 


WITH SENSE STATUS 


1 A25 


JO 


A2 


12D3 




1254 r^OO'JT 


SNS 


KNIT-2, X'A2 • 


1A29 


3 


A 3 


12DD 




1255 


SNS 


KNIT,X' A3' 


1A2D 


30 


E2 


1321 




1256 


SNS 


FAR,X' B2" 


1A31 


38 


20 


0A3E 




1257 


T3N 


UNB-1,X'20 " 


1A35 


CO 


10 


1A9P 




1258 


3T 


TST2 


1A39 


3C 


01 


1521 




12 59 


.1V1 


FAR,X "0 1 • 


1A3D 


38 


40 


1320 




1260 


TBN 


FAri-1„X'40' 


1A41 


CO 


90 


IAEA 




1261 


3F 


SCREAM 


1A45 


3C 


3 


1321 




126 2 


MVI 


FAR,X' 3' 


1A49 


38 


01 


OAOC 




126 3 


I'rlN 


UNA,X'0 1 ' 


1AUD 


CO 


10 


1 AEA 




1264 


3T 


SCREAK 


1A51 


38 


02 


OAOC 




1265 VICY 


TBN 


UNA,X'02' 


■>f 55 


F2 


1 


2i 




1266 


JT 


VJCKY 


1A58 


3C 


7 


1321 




1267 


HVI 


F4R,X'07 ' 


use 


3 8 


8 


12DE 




1268 


T3N 


K " , -2,X'08' 


1A6C 


CO 


10 


IAEA 




1269 


3"" 


St. AK 


1A64 


38 


01 


12DC 




127 DON 


T3N 


kn: i -1, x' oi ■ 


1A68 


F2 


10 


20 




1271 


JT 


JF.HRY 


1A6B 


iC 


15 


1 P. 2 1 




1272 


MVI 


FAR, X' 15' 


1A6F 


3D 


C2 


O.-:0 




127 3 


CLI 


SYSKOD, %'C2 • 


1A73 


CO 


81 


1 AEA 




1270 


HE 


SCREAK 


1A77 


CO 


87 


IB 03 




12 75 


3 


ZOO 


1A73 


3C 


OS 


1321 




127b VICKY 


MVI 


FAR,X' 5' 


1A7F 


3 8 


8 


12DH 




1277 


TBN 


KNIT-2, X'Ob • 




0^;: 


1AE70 


01APR7C 


05MAY70 


01JUL7 


'0 01KAR71 


NO. 


5 7 1 r > 1 2 




571516 


57151i 


571524 571573 



1 BYTE EE 

GO TO ALT ROUTINE 

TEST SCAN FOUND 

TEST STATUS EQUAL HIT 

BUSY OFF EPROR OFF 

1 BYTE FF 

GO TO NEXT ROUTINE 



READ VERIFY ROUTINE 

2 OSC 

INIT SET TO 8 CH K 
SET BUSY ON ERROR OFF 

3 BYTES FF 

4 OSC 

TEST NOT CC 17 
44 OSC 

TEST CC 17 AND BIT RING 
4 BYTES 00 

GOOD AM 
BUSY ON ERROR OFF 
SYNC CHAR 



IS BYTE 

SYNC CHAR 

256 SEP CLK AND IDC 

224 BYTES 00 

17 BYTES FF 

BUSY OFF ERROR OFF 

1 EYTE FF 

INDEX 

NO INDEX 

INDEX 

1 EYTE FF 

GO TO NEXT ROUTINE 



FOR PROPER CONFIGURATION 



1 DRIVE 1 REM 
J DRIVE 1 REM 
1 DRIVE 2 REM 



SENSE STATUS + 
SENSE STATUS 2 + 
SENSE STATUS + 
SEE IF B DEFINED IN UDT 
BR. IF YES 

SEE IF B READY 
ER. IF YES 

SEE IF MOD III DEFINED 

BR. IF YES 

SEE IF 100 CYL DEPINED UDT 

BR. IF YES 

SEE IF 100 CYL I N SNS 

ER. IF YES 

SEE IF MOD B ON IN SNS 

BR. IF YES 

SEE IF MOD B DEFINED 
BR. 12 YES 



SEF IF 100 CM IN SNS 



PROG 
PAGE 



ID 



0A01-1 
IC 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



A014 



FILE CONTROL UNIT FLT SECTION 1 



PART NO. 
PAGE 



512961 1 
10A 



ERF LCC OBJECT CODE 



ADDS STMT SOURCE STATEMENT 



1A83 


CO 


90 


IAEA 


1A87 


CO 


87 


1A64 


1 A8B 


3C 


16 


1B21 


1A8F 


3D 


C2 


0200 


1 A93 


co 


81 


1B0B 


1 A97 


co 


87 


IAEA 


1A9B 


3C 


09 


1B21 


1A9F 


38 


40 


1E"!0 


1AA3 


CO 


10 


IAEA 


1 AA7 


3C 


10 


1B21 


1AAB 


39 


03 


OAOC 


1 AAF 


CO 


10 


IAEA 


1AE3 


3C 


12 


1B21 


1AB7 


3 8 


08 


12DB 


1ABB 


CO 


10 


IAEA 


1 ABF 


30 


BA 


IB^I 


1AC3 


38 


01 


OAOF 


1AC7 


F2 


10 


10 


1ACA 


3C 


14 


IB 2', 


1 ACE 


33 


40 


1B20 


1 AD2 


CO 


10 


IAEA 


1 AD6 


CO 


37 


1A64 


1ADA 


3C 


13 


V_ 21 


1ADE 


38 


40 


1B20 


1AE2 


CO 


90 


i.\ EA 


1 AE6 


CO 


87 


1A64 


IAEA 


co 


87 


021E 


1 AEE 


01 






1 AEF 


1321 




1AF1 


13' 


31 




1 AF3 


CO 


87 


021A 


1AF7 


C1 18 




1AF9 


13 39 




1 AFB 


ao; 


SA 




1 AFD 


CO 


87 


021A 


1B01 


03 






1B02 


18 






1B03 


1351 




1 B05 


CO 


87 


02 2. ' 


1B09 


ao; 


SA 




1B0B 


n 


A 6 


13 17 


1 BOF 


F3 


AO 


00 


1B12 


co 


87 


0216 


1B16 


1318 




1B18 


OOOOOOOO 


1B1C 


0B39 




1B1E 


0AD1 




1B20 


0000 




1 E22 


E4C4 E340C4D6C5E2 


1B2A 


4OD5D6E340D4C1S3 


1 B32 


C3C840E2C5D5E2C5 


1B3A 


E2l 


C5C540D7C1C7C5 


1 B42 


4 0F5F' 


SF040C6C3E4 


1B4A 


40D4C1D7E260E7E7 



1AEE 
1AF0 
1AF2 

1AF8 
UFA 
1AFC 

1B01 
1B02 
1B04 

1B0A 



1B17 
1B1B 
IBID 
13 iF 
1B21 
1E39 



1B51 



0200 



1B52 


34 


8 


1391 


1 B56 


3C 


01 


1BAF 


1B5A 


OC 


< 


1B9D 


1B60 


iH 


80 


1B96 


1 B64 


F2 


90 


03 


1B67 


J 8 


80 


139A 


1B63 


F2 


9 


OU 


1B6E 


3 A 


80 


1BA2 


1B72 


OE 


03 


1D9') 



12DD 



39 9 
1B78 OF 03 1B9D 1B9D 



1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1 302 

1303 

1304 

1305 

1 30 6 

1307 

13 8 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1 322 

1 32 3 

1 32 4 

1 , 2 5 

1325 

1326 

1326 

132 7 

1 327 

13 2 7 

1328 

132 9 
1330 
1 3 3 1 
13 3 2 

133 3 
13 34 
1 3 3 5 
1 3 3 6 
1 337 
1 338 
1 3 3 9 
1340 
1 341 



JERRY 



TST2 



DICK 



SCREA? 



ZOO 



AZEROi 

Z"ROS 

SATE 

SAT 

FAR 



BF 

3 

MVI 

CLI 

BE 

3 

MVI 

TBN 

BT 

MVI 

T3F 

BF 

MVI 

TBN 

BT 

SNS 

TBN 

JT 

MVI 

TBN 

3T 

3 

MVI 

TBN 

3F 

3 

DC 

DC 

DC 

3 

DC 

DC 

DC 

3 

DC 

DC 

DC 

3 

C" 

L10 

SIO 



DC 

EC 
DC 
DC 



UDTMSG DC 



ACID 



SYSMOD 
#*♦*** 

* ROUT 
****** 

FAKE 



FOOT 



DC 



SCREAM 

DON 

FAR,X' 11,- 

SYSMOD, X*C2' 

ZOO 

SCREAM 

FAR,X' 09* 

FAR-1 ,X 'HO ' 

SCREAM 

FAR,X* 10' 

UN A, X' 03' 

SCREAM 

FAR.X' 12 ' 

KNIT~2,X' 08' 

SCREAM 

FAR.X' BA* 

UN3, X'O 1 • 

DICK 

FAR,X'14 • 

FAR-1, X« 40' 

SCREAM 

DON 

FAR,X*1 3' 

FAR-1, X' 40' 

SCREAM 

DON 

UNPACK 

XL1 '01 ' 

AL2 (FAR) 

AL2 (ACID) 

PRINT 

XL2»C118« 

AL2 (UDTMSG) 

XL 2' AOEA' 

PRINT 

XI. 1 ' 03' 

XL1 • 18' 

AL2 (ACID) 

HALT 

XI.2' AOEA' 

AZERCS.K' A6' 

' • , X ■" A • 
.. NK 

AL2(ZER0S- 3) 
X„4 'OOOOOOOO' 
AL2 (SOFT-4) 
AL2 (P.AFT-4) 
XL2 "0000 ■ 
CL2 4"JDT DOE: 



PAGE 



ER. IF NO! 



SEE 


IF 


MOD B DEFINED 


3R. 


IF 


YES 


SEE 


IF 


DRIVE 2 HEADY 


BR. 


IF 


NOT 


SEE 


IF 


ANY FEATURES 


BR. 


IF 


ANY 


SEE 


IF 


10 C Y i. IN SN 


ER. 


IF 


YES 



REM 



DEFINED FOR A 



SENSE + 1 DRIVE 2 FIXED 
SEE IF MOD III DEFINED 
BR. IF YES 

FIXED READY 



E 2 FIXED READY 



SEE 


DRIVE 2 


ER. 


IF NOT 


52 £ 


IF DRIV 


ER. 


IF YES 



NOT MATCH 



5EN: 



30 FCU MAPS-XX* 



ADD 



EQU X'200' 
***************************************************************** 

INE TO INCLUDE I DONT CARE BITS WITH iXPK.MED BITS 
*»****»********#*»*♦**•»»***»*****»***«*«***',****»**«»»<****»****« 

ST CRUDE+3,X' 08' SAVE RETURN ADDRESS 

IV CKCTR,X'01' ZERO BIT 01' .ITER 

MVC ACTL( ) , KNIT 

TBN .:SK-J,X'80' TEST FOR DONT CARE BIT 

.IF ADD BR. T F NOSE 

TBN ACTL-3, X'80' TEST FOR .V.riJAL BIT 

IF ADD I-R. IF ;;0;JE 

■»BN EXP-3,X'80' ADD EI'. fO EXPECTED FILLD 

ALC MSK (4) ,MSK SHIFT ML FIELDS 

ALC ACTL(4) , ACT L 



DATE 02MAR70 

EC NO. 571512 



01 APR70 
57 1516 



06MAY70 
57 15 13 



1 JUL' 
571524 



01MAR71 
571573 



PROG ID 
PAGE 



CA01-4 
10A 



IP."! MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129611 
11 



A014 



FILE CONTROL UNIT FLT SECTION 1 



ER? LOC 03JECT CODE 



ADDR STMT SOURCE STATEMENT 



137E 


OE 07 1BA5 1BA5 


1584 


OE 00 1BAF 1502 


1B8A 


3D 21 1BAF 


138E 


CO 81 1B8E 


1E92 


CO 37 1B60 


1 P96 


00000000 


139A 


00000000 


139E 


0000000000000000 



1 EA6 
1BA9 
1BAC 
13AF 
■■B30 
1332 
1 334 
1B38 
1 33C 
1 SCO 
1BC4 
1EC8 
1BCC 
13D0 
13D4 
1ED8 
IB DC 
1 BEO 
1 BE4 
1BE8 
13EC 
1BFO 
13F4 
1BF8 
1 BFE 
1C02 

ico 
".coq 

1C0D 
1C1 1 
1C15 
1C19 
1C1 J 

ic;.i 

1C25 
1C2 C - 
1C2D 
IC31 
1C33 
1C35 
1r37 
1C3B 
1C3D 
H-'.i 
1C4 9 
1C51 
1C5? 
1C56 
1C5A 
1C5E 
1C62 
1C66 
1C6A 
1C6E 
1C72 
1C76 
1C7A 
1C7F 
1C82 



004873 
AFEF7F 
FSSFFF 
00 

0200 
FFFF 
C2 01 
34 01 



33 
3B 
33 
3P 
3 3 
33 
33 
3 3 
33 
CO 
CO 
C2 
3C 

co 

36 

OF 
CO 
F3 
31 
31 
31 



10 

10 

10 

lO 

10 

10 

10 

10 

04 

10 

87 

02 

43 

87 

02 

00 

01 

A 1 

A3 

A3 

A3 

C0800000 
C 1 A 2 1 C 2 D 

10 

10 

20 

10 

87 

87 



OAOC 
13DF 
1CAC 
1CBB 
1CBF 
1D0F 
1D46 
1D6D 
1D69 
1C9D 
OAOC 
13E6 

id': 

1DB8 

IE'. E 

1C86 

15 05 

1 E 4 E 

1EF0 

01 

1E65 

1E66 

1E65 



1502 



1C9D 
1E0B 
OAOE 
1C52 
1303 
2 16 



3 8 
CO 
3 8 
CO 
CO 
CO 
C51 1 
1C5 1 
A 33 

CO 87 0/2/ 
A033 

CO 87 1C2D 
C3C540D4D6C4C540 
D5D6E340D9C5^2C5 
E3 

3A 10 1C9D 
C2 01 OAOF 
34 01 1BDF 
3 A 10 1CAC 
3 A 10 1 C B 3 
3A 10 1C3F 
3 A 10 1D0F 
n 10 1D46 
3 A 10 1D6D 
U 10 1069 
C2 2 OAOF 
34 02 13DF 
CO H7 1BDC 



1399 
1B9D 
1EA5 
0002 
1EA8 
13AB 
1EAE 
1SAF 
1SB1 
1333 



1C14 



1C32 
1C34 
1C36 

1C3C 

1C51 



1342 
1343 
1 344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
13 54 
1355 
1356 
1357 
1 358 
1359 
1 360 
1361 
1 362 
1363 
1364 
1 365 
1 366 
1367 
1 368 
1 369 
1 370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1 378 
1 3 79 
1 38 
1381 
1 3H2 
1 38 3 
1384 
1 385 
1 3 86 
138 7 
1 )88 
1 389 
1 3 90 
13 91 
1 392 
1 39 3 
1 394 
1 3 94 
1 394 
'. 3 95 
1 396 
1397 
1 398 
1399 
1400 
1401 
1402 
140 3 
1 404 
1405 
1406 
1 407 



CR'JDE 

MSK 

ACTL 

EXP 

XR2 

KSK 1 

MSK2 

MSK 3 

CKCTR 

RTN2 



AJAX 
AGAIN 



FUZ 



EDDY 
WHAT 



HUNG 



TOU" 



ALC 
ALC 
CLI 

3E 
3 

EC 
DC 
DC 
SQ'J 
DC- 
DC 
DC 
DC 
DC 
DC 
LA 
ST 
S3F 
SBF 
S3F 
SBF 
SBF 
S3F 
SBF 
SBF 
T3N 
BT 
3 

LA 
SVI 
3 
k 

SLC 
BNZ 
SIO 
LIO 
LIO 
LIO 
DC 
TIO 
T3N 
3T 
TBN 
3T 

3 

DC 

DC 

DC 

3 

DC 

3 

DC 



SBN 
LA 
ST 
SBN 

SBN 
SBN 
SBN 
S 3 N 
S 3 N 
SBN 
LA 
ST 
B 



EXF (8) .EXP 

CKCTR(I) ,ONE 

CKCTR,X'21 • 

CRUDE 

FOOT 

XL4' 00000000' 

XL4 "00000000 » 

XL8" OOOOOOOOCOOOOOOO 



XL 3' 004h73' 
XL3 • AFEF7F' 
XL3' FEEFFF' 
XL1 'CO' 
XL2' 0200' 
XL2 'FFFF' 
UNA.XR1 
LATE+3.XP1 
:.'PNOW+1,X' 1 G 
JOE+1, X ' 10 • 
BILL+ 1, X' ' 0' 
TED* 1,X '10' 
TON + 1 ,X' 10 • 
JOHN* 1, XM 0' 
Tin CUT* 1 ,X ' 10 
FIRE+1, X' 10' 
'JNA,X'0 4' 
AJAX 
WHAT 

»ATKIX-3,XR2 
COUNT, X'4B' 
IOHAN 
7WO,XR2 
CCUNT( 1) ,ONE 
AGAIN 

X • I ' , X • A 1 • 
INDEX, X ' A *• 
INDEX+1 ,X • A3 • 
INDEX, X'A3' 
XL4 'COSOOOOO » 
C EH CD, BUSY 
FIRE+1 ,X' 10 ■ 
ZOO 

UNB-1,X'20 ' 
TOOT 

PS TNT 

XL2 'C5 1 1 ' 

AL 2 (HUNG) 

<L2' AO 33' 

HALT 

XL z'A033' 

CEKCD 

CL17*CE HODE 



ADD 1 TO BIT COUNTER 
SEE IF ALL BITS TESTED 
* SUB-ROUTINE EXIT 



NORMAL STATUS I DONT CARE BITS 
USED ON INITIAL SENSE ONLY 
USED ON SEEK BUSY HANG UP ONLY 



P°' r JTINE NUMBER 
L«ST KOU'TINE 



SET UP FOR DRIVE 1 

SE£ IF HIGH SPEED DEFINED 



INITIALIZE TEST VALUE POINTER 
INITIALIZE TEST COUNT 

UPDATE VALUE POINTER 



INDEX 
NO INDEX 
INDEX 

TEST FOR BUSY 

SEE IF DRIVE 2 TESTED 

S2E IF DRIVE 2 DEFINED 



PRINT HANG MSG 



*** 33 
NOT RESET' 



FIRE+1, X« 10' 
UNB,XR 1 
LATE+3, XR1 
UPNOW+ 1,X' 10 ' 
JOE + 1,X' 10' 
BILL+1 ,X • 10 • 
TED + 1,X" 10" 
TON+1 ,X' 10 ' 
JOHN+ 1, X' 10' 
TI KCUT+ 1.X ' 10' 
UN B, XR2 



SL7 HP FOR DRIVE 



, XR2 
LATE+3 

LATE 



DATE 
EC NO. 



02HAR7C 
5715 12 



01APP70 
57 1516 



06MAY70 
5715 13 



1 JUL7 
5 ; 1 52 4 



01MAR7 1 
57 157 3 



PROG 

PAGE 



ID 



0A01-4 
11 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



A014 



FILE CONTROL UNIT FLT SECTION 1 



PART NO. 
PAGE 



5129611 
1 1A 



ERR LOC OBJECT CODE 



ACDR STMT SO'JKCE STATEMENT 



1C86 
1C8A 
1C8F 
1C94 
1C98 
1C9C 
1C9F 
1CA3 
1CA7 
1CAB 
1CAF 
1CB3 
1CB6 
1CEA 
1C3E 
1CC2 
1CC6 
1CC7 
1CC9 
1CCB 
1CCF 
1CD3 
1CD6 
1CDA 
1CDE 
1CE2 
1CE4 
1CE6 
1CE8 
1CEC 
1CEE 
1CF0 
1CF4 

ic:& 

1CFA 
1CFE 
1D02 
1D08 
1D0E 
*D12 
1D16 
1D1 A 
1D1E 
1D22 
1D26 
1D2A 
1D2E 
1032 
1D36 
1 D19 
1D 3D 
1D41 
1D45 
1D49 
1D4D 
1D50 
1D54 
1D5A 
1D C >E 
1D62 
1D68 
1 D6C 
1070 
1D74 
1D7B 



34 
2C 
2C 
31 
31 
F3 
3D 

co 

CO 

30 

3 8 

F2 

3C 

30 

30 

CO 

04 

1D99 

1E63 



08 
00 
00 
A3 
A6 
AO 
03 
84 
37 
A2 
40 
10 
F2 
A2 
A3 
87 



BO 
10 
10 
AO 
F1 
87 



3C 

id 

F2 

3C 

3C 

CO 

C116 

1D35 

0066 

CO 87 

5 OF 

1E63 

CO 87 

A066 

CO 87 



31 
31 

OF 
OF 
30 
CO 
3 8 
CO 
CO 
39 
CO 
CO 
30 
3 8 
F2 
CO 

n 

3 1 

30 
3 8 
F2 

CO 
OF 
3D 
CO 
OC 
3 
10 
JB 
CO 
CO 



A3 
A3 

00 

oo 

A2 

81 
40 
10 
87 
40 
10 
87 
A3 
04 
90 
87 
A 3 
A3 
A2 
40 
90 
8 7 
00 
OO 
01 
01 
A2 
A3 
4 
90 
87 



1D95 

1D9D 00 

1E51 01 

1DB8 

1D9F 

00 

1D9D 

1CAB 

1D2E 

1D97 

1D97 

44 

1D35 

1D97 

1D99 

021E 



1CE6 

1C9D 

08 

1CE6 

1DB5 

021A 



021A 



0222 

1CF0 

1DB7 

1DB8 

1D9D 

1E51 

1D97 

1D22 

1D97 

1CFA 

1CB6 

1D97 

1D2E 

1CB6 

1D99 

1D98 

04 

1CB6 

1DB"' 

1DB8 

1D97 

1D97 

04 

1CB6 

1D9D 

1D9D 

1D2E 

IE S3 

1D97 

1D94 

1D97 

1B7C 

1CJ16 



1CC6 
1CC8 
1CCA 



1CE3 
1CE5 
1CE7 

ICED 
1CEF 

1CF5 



1502 
1502 



150.' 



1E50 



1 ''0 8 

1 -t0 9 

1410 

1 411 

1412 

1 413 

1414 

1415 

1416 

1417 

1418 

1 419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1 431 

1432 

1433 

1434 

1 43 5 

1 436 

1437 

1438 

1439 

1440 

1441 

1 442 

1443 

1444 

1 445 

1446 

1447 

1448 

1 449 

1450 

1 451 

1452 

1 453 

1454 

1 455 

1456 

1457 

1458 

1 459 

1460 

1 461 

1462 

146 3 

1 464 

1 465 

1466 

1 46 7 

1 46 8 

1 469 

1470 

i 47 1 

14 72 

1 47 3 

1474 

1475 



* 
* 

10 HAN 



FIRE 



UPNOS 



OUTIT 

JOE 

BILL 



************I/0 HANDLER S UBROUTIN E******* ******** 



TELL 



FLAG 
MORE 



STOP 



STEPIT 



TED 






ENDOUT 



DAVE 



TON 



CIFEND 



TTMOUT 
JOHN 



5T IHET+3.ARR 

MVC LF'LD(I) ,0(,XR2) 

MVC DR0P(1) , 1 (,XF2) 

LIO MODE*1,X , A3' 

LIO CADR,X*A6' 

SIO X' 00' ,X' AO • 

CLI CFLD.X'Oi' 

3H UPNOK 

3 ENDOUT 

5NS 3YTE01,B01 

TBN 3YTE01,X'40' 

JT STEPIT 

HVI ERRMSG.C^ 1 

SNS BYTEO1,B01 

3NS BYTE23,B23 

3 UNPACK 

DC XLV04' 

DC AL2(BYTE23) 

DC AL2 (SBSG) 

MVI FLAG-1,X'B0' 

TBN FIRE+1,X'10' 

JT TELL 

mvi flag-1 ,x'a0' 

mvi ehr:;sg,c 1 • 

3 PRINT 

DC XL2'C116* 

DC AL2(ERBMSG) 

OC XL2'0C66' 

3 PRINT 

DC XL2-050F' 

DC AL2(SMSG) 

3 HALT 

DC XL2'A066 I 

S STOP 

LIO MODE, X' A3' 

LIO aOD£+1,X'A3' 

SLC CFLD (1) ,ONE 

SLC DROP(1) ,ONE 

SNS 3YTE01,B01 

3Z DOWN 

TBN 3YTE01,X'40' 

3T STEPIT 

3 OUTIT 

TBF BYTEOI.X^O" 

3T ENDCUT 

3 OUTIT 

SNS BYTE23,B2 3 

TBN BYTE23- 1,X« 04" 

JF DAVE 

3 OUTIT 

LIO MODE.X'Ai' 

LIO HODE*1,X«A3' 

SNS 3YTE01,B0 1 

T3N BYTE01,X'4G' 

JF CIFEND 

3 OUTIT 

SLC CFLD ( I) ,ut!t 

CLI CFLD, X' 00' 

BNE ENDOUT 

MVC SETTLE (2) .TIME 

SNS 3YTE01,B01 

SNS 3YTE23,B23 

TBN BYTE01,X'40' 

BF TSTBSY 

3 OUTIT 



SAVE RETURN AEDRESS 
SE" UP SEEK COUNT 
SET UP DROP COUNT 
PLACE IN CE MODE 
LOAD Di'CR 
SEEK 

CHECK SEEK COUNT 
ER. IF GREATER THAN 



TEST HI SPEED LINE 
JUMP IF ON 



TEST FOR DRIVE 2 



*** S3ROR 66 



INHIBIT CPU REO - TRACK CROSSING 



TEST HI SPEED LINE 



TEST HI SPEED LINE 



TEST HEAD SETTLING 



INHIBIT CPU REg - TRK CROSSING 



TEST HIGH SPEED „i NE 



SEE IF SEEK ENDED 

SET UP HEAD SETTLING DELAY 



DATE 
EC NO. 



02MAR70 
57 1512 



01 APR70 
5715^6 



O6MAY70 
5 71513 



01JUL70 
57 1524 



1MAR71 
571 57 3 



THOG ID 
PAGE 



0A0 1 -4 
1 1A 



IBM MAINTENANCE DIAGNOSTIC PROSBAM 



PABT NO. 
PAGE 



5129611 
12 



A01U FILE CONTROL UNIT FLT SECTION 1 

ETH LCC OBJECT CODE ADDP STMT SOURCE STATEMENT 



107C 


38 


10 


1097 


1380 


CO 


so 


1D9 2 


1 084 


CF 


01 


1E53 


1D8A 


CO 


01 


1D6 8 


1D8E 


CO 


87 


1CB6 


1D92 


CO 


87 


1D9 2 



1502 



1396 
1D98 
1D9A 
1D9E 
1DAO 
1DA8 
1DB0 
1DB6 
1DE8 
1DBC 
1DC4 
1DCC 
1DD2 
1DDA 
1DE2 
1DE8 
1DF0 
1DF8 
iDFE 
1E06 
1E0E 
1S14 
1E1C 
1E24 
1^2A 
1E32 
IE 3 A 
1E40 
1E48 
1S4E 
1E4F 
1E51 
1E52 
1E54 
1E5C 
1E64 
1EEO 
1EE0 
1EE1 
1FE1 
1FE2 
1FE5 



0000 

00 00 

00O00OO0 

1D9A 

C8C940E2D7C5C5C4 

<,0C5D9D9D6D940C4 

D9C9E5C54CE7 

0400 

00000300 

0402050207040804 

0AG60BO6ODC8CEC8 

10OA11OA130C 

140C160E170E1910 

1A 101C121D121F14 

20 1422162316 

251826182A1C231C 

2F20 30 2034243524 

39283A283E2C 

3F2C433044304634 

49344D384E38523C 

533C57405840 

5C445D"+461486248 

664C674C6B5C6C5C 

745875587D60 

7E60866387688F70 

907098789978A180 

A280AA88AB88 

P3 90B4 90BC98BD9 8 

C^A0C6A0CCA6 

00 

0187 

00 

0000 

4OE2E3C1E324E240 

E7E7E7E7E7E7E7E7 

',0 00 

oc 

00 
0001DC01 



0010 
C008 
0004 
0200 
0202 
020it 
20 8 
0209 
0212 
0232 
01F1 
00A4 
O0A6 
00A2 
OOAO 

O0A2 
C0A3 
1097 
1D99 
1D9D 
1D9F 
1DB5 



1DE7 
1D3B 
1DD1 



1DE7 



1DFD 



1E1 3 



1E29 



1E3F 



1E4D 

1E4E 
1E50 
1E51 
1E5 3 
1E6 3 

1E6 5 

1EE0 
1 F 2 
1FE1 
1FE4 
1FE8 
C222 



1 476 
1477 
1478 
1479 
1480 
1481 
1482 
1 483 
1484 
1485 
1486 
1487 
1438 
1489 
1 490 
149 1 
1492 
1 49 3 

14 94 
1495 
1496 
1497 
1498 
149 9 
1500 
1501 
1502 
1503 
1504 
1505 
1505 
1505 
1506 
1507 
1508 
1508 
1508 
1509 
1509 
1509 
1510 
1510 
1510 
1511 
1511 
1 51 1 
1512 
1 512 
1512 
1513 
151 i 
1513 
1514 
1 514 

15 15 
1516 
1517 
1 51 8 
1519 
1519 
1520 
1521 
1522 
1 52 J 
1524 
1 52 5 
1526 
1 52 7 



TEST SEEK BUSY 



EECRIMENT DELAY COUNTER 



TSTBSY TBN BYTE01,X'10' 

BF IRET 

SLC SETTLE (2) .ONE 

BNZ TIMOUT 

B OUTIT 

IRET B IRET RETURN 

* ************EqU ate£ ************ 

IAR EQU X'10' 

ARR SQU X'08' 

PSR EQU X"04' 

SRT EQU X»200' 

SMOD EQU X'202' 

CPU EQU X'204' 

S3YTE0 EQU X'208' 

S3YTE1 EQU X'209' 

TEST EQU X«212' 

UTA3 EQU X'232' 

RUNTAB EQU X'IFT 

DFDR EQU X'A4' 

EFCR EQU X'A6< 

3USY EQU X'A2" 

ESROS EQU X'AO' 

****************** 

301 EQU X'A2* 

B23 EQU X'A3' 

3YTE01 DC XL2'0000' 

3iTE23 DC XL2'0000' 

CFLD DC XL4' 00000000' 

CADR DC AL2(CFLD-3) 

ERSBSG EC CL22'HI SPEED ERROR DRIVE X* 



MODE DC XL2«0400' 

MATRIX DC XL4 '00000300 ' 

DC XL 22 '0 4020 50207 C4C8 04 OA060B06 0D080208 100 A 1 1 OA 1 30C • 



DC XL2 2'140C16OE17OE19101A101C121D121F142O1422162316' 



DC XL 22' 251b26182A1C23lC2F2O302 034243 5 24 39 28 3A28 3E2C 



DC XI 22 • 3 F2C43 3044 3048 34 49 344D38 4E38 52 3C 53 3C 57405840' 



DC XL2 2" 5C44 5D4 461 4862 48664C 674C6B506C 507 4 58 75 58 7D60' 



DC 



XL22'7E60866 887 688F70 90 7C98789978AiaOA2 80AA88AB88 ' 



DC XL 14' B3 90B4 9CBC9fcBDS8C5ACC6A0CCA6' 



COUNT DC 

TIME DC 

DROP DC 

SETTLE DC 

SMSt; DC 



XLT 00' 

XL2 '0187' 

XL 1' 00' 

XL2 '0000' 

CL16' STATUS XXXXXXXX' 



26- 15008 MS 



INDEX 

RARN 

ARNS 

LION 
HALT 



DC 
ORG 

DC 
DS 
DC 
DS 
DC 
EQU 



XL2' 8000* 

X'1 EEO' 

XLT 00' 

CL256 

XLT 00' 

CLi 

XL4-0001DCOT 

X'222' 



DATA FIELD 
CONTROL FIELD 



DATE 
EC NO. 



2MAR7O 
57 1512 



01APR70 
571516 



6KAY70 
57 151 J 



01JUL70 
571524 



01MAR71 
571573 



E-ROG ID 

PAGE 



OA01-4 
12 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



5129611 
12A 



A0T* FILE CONTRCL UNIT FLT SECTION 1 

EHR LOC OBJECT CODS ADDR STHT SOURCE STATEMENT 



0216 1528 LINK 
FFF7 1529 



EQU X'216' 

END 



DATE 
EC NO. 



02MAR70 
57 1512 



1 \PR70 
571516 



06MAY70 
5 7 1 5 1 J 



1JUL70 
57152 4 



1KAR71 
5 7 15 7 3 



F-RUiJ ID 
PAGE 



0A01-4 
12A 



I3H MAINTENANCE DIAGNOSTIC PROGRAM 



PART 

PAGE 



NO. 



5129611 

13 



SOIt 



FILE CONTROL UNIT FLT SI'CTION 1 



CROSS-REFERENCE 



SYMBOL T LEN VALUE DEFN 



REFERENCES 



A3NES A 002 14EB 0697 



ABYSS 

ACID 

ACRID 

ACT 

ACTL 

ATE 

ADV1 

AEV2 

ADV3 

ADV4 

ADV5 

AGAIN 

A.TAX 

ALICE 

ALMS 

ALTAR 

AKILE 

ASP 

ANDES 

ANDY 

ANISE 

ANNA 

ANNE 

ANO 

ANT 

ANTE 

ANV IL 

ANY 

ARBOR 

ARID 

AHNE 



004 
024 
004 
004 
004 
006 
04 
004 
04 
04 
004 
004 
004 
001 
005 

002 
006 
004 
001 
001 
004 
001 
002 
001 
004 
004 
004 
002 
004 
002 
001 



ARR 

ART 

ATTIC 
AVA 
AXE 
AZEPOS 

BAM 
BAN A 

BARK 

BASK 
BASS 

BAT 

BDPARM 

BEAT 

BEIGE 

BELL 

BESS 

BETli 

BILL 

BIRD 

3IRD1 

BLAB 

BLAB1 

BLANK 

BLOB 

BT.O B 1 

BLOT 

BLOT1 

BOSS 



C 001 
A 010 



004 
004 
004 
002 
002 
004 
001 

004 
004 
004 
029 
004 
003 
002 
002 
004 
004 
002 
001 
002 
001 
001 
002 
001 
002 
001 
004 



1499 
1B51 
11C5 
10E4 
1B9D 
1B72 
0DF3 
ODEF 
ODEB 
0DE7 
0DE3 
1BF0 
1BE8 
1369 
1525 

1519 
0DC1 
1112 
12D6 
1325 
13E3 
151 A 
149D 
1513 
10D3 
110A 
143F 
14D6 
142C 
14CE 
1FE1 



0008 
14E9 

13F5 
0E4E 
10EC 
1817 
14F1 
0E79 
1EE0 

144A 
13D2 
10F0 
ODCO 
1134 
14F6 
14EF 
149B 
0E56 
1CBE 
19AD 
19AE 
1921 
1922 
1 !31 
189 7 
1898 
18H8 
1«"9 
1 3C4 



0667 
1327 
0519 
0450 
1348 
1340 
0244 
0243 
0242 
24 1 
0240 
137 2 
137C 
1051 
0722 

0716 
0233 
0463 
0589 
0598 
0625 
0717 
066 9 
0718 
0445 
0460 
0646 
C691 
0641 
0687 
1524 



1484 
0696 

0627 
0268 
0452 
1321 
0700 
0282 
1522 

0648 
0618 
0453 
0231 
0472 
0702 
0699 
0668 
C270 
1425 
1199 
1200 
1133 
113U 
061? 
1074 
1075 
109 2 
109 3 
0615 



0043* 
0077 

1 307 
0221 
0446 
1334* 
1336 
0402 
0239 

02 84 

0274 

1375 

1368 

1152 

0023* 

0109* 

0303* 

0181 

0208 

0548* 

0233* 

0622 

C253* 

0018 

0465* 

3 5i! 
0207 
0625* 

0633 

0466 

0042* 

0273 

1059 

1 41 1 
0350 
0511* 
0642 
0254 
0448 

1 31 8 

C193 
0098* 

842 
0616 
0055 
0449 
0226 
0471* 
0247* 
0393* 
0017 
0255 
1361* 
0123 

1 199 
0111 
1133 
0019 
09 2 
1074 
0105 
1092 
0076 



0C9J* 

0088 

1315 



0095* 0135 0169 0440* 0450* 0453 



13 37 
1338 

0409 0415 
0311 0317 
0290 0294 



13*1 1341* 



0418 
0421 
0300 



0461 
0428 
0336 



0490 
0434 
0458 



0494 
0469 



0497 
0528 



0500 
0534 



050 3 0506 0522 



02b0 0480 0486 



1185 

0024* C047* 0043* 0054* 0063* 0069* 0075* 0083* 0089* 0090* 0103* 

0115* 0121* 0179* 0561 

0307 



0549* 

0237* 0319* 0331* 0548 



0256 0268* 0270* 
0162 0620 
0467* 
0356 

0644 0646 



0056* 0059* 0066* 0077* 0080* 0088* 0097* 0108* 0114* 0120* 0126* 
0460* 0550 0616* 0619* 0669 0937 0987 0990 1008 1017 1049 



0352 0435* 0436* 0437* 0436* 0439* 0442 0445 0447 0455 0455* 



0099 
0994 



0472 
0?48" 
0396* 
0163 

1400* 



0178 



0099* 
1 006 



0100* 
10 6 8 



.101* 
.072 



01 C2 
1 1 49 



0102* 
1 162 



0310 0381* 0555 0668 0808 



0626* 0637* 

0403 

0380 0417 



DATE 
EC NO. 



0*MAR70 
571512 



01APR70 
57 "5 16 



06WAY70 
57151 i 



1 J U L7 
571524 



01MAH7 1 
571573 



PROG 
PAGE 



ID 



0A01-4 
13 



IBH MAINTENANCE DIAGNOSTIC PROGRAM 



PART NO. 
PAGE 



512961 1 
13A 



A014 



FILE CONTROL UNIT FLT SECTION 1 



CROSS-REFERENCE 



SYMBOL 


T LEN ' 


VALUE 


DEFN 


REFERENCES 










BBACT 


A 006 


0F38 


0337 


0329 










BRAD 


A 009 


12F3 


0595 


0016* 0543* 


0544* 


0545* 


0568* 0569* 




BRAN 


A 002 


1967 


1166 


0117 










BRAND 


A 006 


0C1D 


0126 


1218 










BRAN1 


A 001 


196 8 


1167 


1166 










BROAD 


A 002 


1513 


0713 


0282* 0283 










BEUSH 


A 004 


0C6A 


014b 


0143 










BRUTE 


A 006 


0F8F 


359 


0385 










BSINC 


A 001 


14FE 


0705 












BUG 


A 004 


1212 


0539 


0571 










BURN 


A 006 


12C8 


0564 


0560 










BUSY 


C 001 


00A2 


1496 


1381 










BHANA 


A 004 


0FD5 


0377 


0345 










BYTE01 


A 002 


1D97 


1501 


1420* 1421 


142"* 


1449* 


1451 1454 


146 3* 


BYTE23 


A 002 


1D99 


1502 


1425* 1423 


1457* 


1458 


1472* 




B01 


C 001 


00A2 


1499 


1420 1424 


1449 


1463 


1471 




B23 


C 001 


00A3 


1500 


1425 1457 


1472 








CADP 


A 002 


1D9F 


1504 


1415 










CAKE 


A 004 


145B 


0653 


0652 










CANT 


A OOU 


14FD 


0704 












CAPE 


A 06 


OECF 


0310 


0197 










CAREA 


A 004 


14D2 


0688 


0320* 032 3* 


0324 


0328 


0337 0337* 


0338 


CART 


A 004 


0E1B 


0255 


0269 










CAT 


A 002 


172F 


0915 


0074 










CCNTR 


A 001 


14D3 


C589 












CEMOD 


A 004 


1C2D 


1 387 


1381 1393 










CFLD 


A 004 


1D9D 


1503 


1412* 1417 


1447* 


1467* 


1463 15C4 




CHEPI 


A 004 


0E98 


0292 


0194 










CIFEND 


A 006 


1D54 


1467 


1465 










CKCTR 


■■ 00 1 


13AF 


1354 


1333* 1343* 


1344 








CLKSTP 


A 001 


0A00 


0002 












CLK1 


A 002 


151E 


0720 


0321* 0326* 


034 3 








CNUM 


A 001 


0A03 


0006 












COPE 


A 004 


14B3 


0674 


0059 










CORD 


A 002 


1495 


0665 


0137 0141 


0520 








CORN 


A 00.: 


1493 


0664 


0519 0521 










COUNT 


A 001 


1E4E 


1515 


1371* 1374* 










CPU 


C 001 


0204 


1488 












CRIME 


A OOU 


0FE1 


0380 


0378 










CRUDE 


A 004 


1B8E 


1345 


1332*- 1345 










CRUSH 


A 004 


0C58 


0141 


0139 










CRUST 


A 004 


0C48 


0137 


0134 










CRUX 


A 007 


1481 


0659 


0359* 0584 










DANTE 


A 004 


OECF 


0252 


0330 C367 










DART 


A U 


0E1F 


0256 


0260 j263 


0271 


0420* 






DAVE 


A 004 


ID 3D 


1461 


1459 










DELTA 


A 006 


0B6 3 


0088 


0086 










DFCi 1 


C 001 


00 An 


1495 












DFDF 


C 001 


00A4 


1494 












DICK 


A 004 


1ADA 


1300 


12 95 










DLYSW 


* 004 


0DC7 


0234 


0168* 0238 










DON 


A 004 


1A64 


127C 


1279 1299 


1303 








DOUGH 


A 004 


0B85 


09 5 












DOWN 


A 004 


1D22 


1454 


1450 










DROP 


\ 001 


1E51 


1517 


1>«13* 1448* 










DUN 


A 004 


0CH6 


0157 


0151 










EDDY 


A 004 


1C15 


1381 












ELAN 


A 004 


10BF 


0440 


0456 0513 










ELF 


A 004 


120P 


0537 


57 










.iLLA 


A 002 


14ED 


06 9 8 


02 35* 02 3 6 


0441* 


0452* 


04 5 4 




END 


A 004 


1 A 1 A 


1249 


0020* 004 1 


0087 


0111 


017 5 04 6 3 


58 1* 


ENDOUT 


' A 004 


1D2E 


1457 


14 19 14 5 5 


1469 








ENGO 


A 006 


0E01 


0248 


0?49 










ENY 


A 002 


14D8 


0692 












EON 


A 004 


10CF 


0444 


0166* 0457* 


0512* 








EPOUT 


A 004 


0FC4 


37 1 












DATE 


02MAR70 


01APR70 


06MAY70 


01JUL7 


1MAB7 1 




EC NO. 


, 571 5 


12 


571516 


571513 


57 1 5 


24 


5 7 157 3 





1464 1471* 1473 1476 



0640 0649 065 1 



PROC- 

PAGE 



ID 



0A0 1-4 
13A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 



A014 



FILE CONTROL UNIT FLI SECTION 1 



PART SO. 
PAGE 



5129611 
14 













CROSS-REFERENCE 


SYM30L 


T> 


LEN 


VALUE 


DEFN 


REFERENCES 


ERGO 


A 


006 


OOFS 


0247 


0234 


ER IN 


A 


001 


14FF 


0706 




SPEMSG 


A 


022 


1D3 5 


1505 


1423* 1434* 1437 


E"ROR 


C 


001 


00A0 


1497 




ETT A 


A 


003 


0CD5 


0176 


0044* 0053* 0062* 0067* 007 



EXP 

FACT 
FAKE 
FANCY 
FAR 

FAULT 
FAY 



FEE 

FILET 

F 13 E 

FIRS 

FL AG 

FLAT 

FLIT 

FLO 

FLUID 

FLUX 

FLY 

FOES 

FOLKS 

FOOD 

FOOT 

FOR 

FOUR 

FRESH 

F P OG 

FPU IT 

PTY5 

FUZ 

GALA 

GAS 

GAUDY 

GAY 

GNAT 

GOOUT 

GOUT 

GRATN 

HALT 

HAND 

HANDS 

HERE 

HUNG 

I AR 

IMP 

INDEX 

10 HAN 

IR ET 

JERPY 

JOE 

JOHN 

KAT 

KELP 

KIT 

KITE 

KNIT 



A 008 1BA5 1349 



A 04 
A 004 
A 006 



A 004 
A 002 
A 004 
A 00 3 
A 06 
A 002 
A 06 
A 004 
A 001 
A 002 
A 005 
A 004 
A 004 
A 01 
A 004 
A 04 
A 004 
003 
008 
004 
004 
A 001 
A 003 
A 004 
A 004 
A 002 
A 002 
A 04 
A 004 
.. 004 
A 004 
C 001 
A 002 
A 001 
A 004 
A 017 
C 001 
k 001 
A 002 
A 004 
A 00'; 

:, 04 

A 004 

A 004 

A 003 

A 004 

A 00 3 

A 005 

A 07 



0EB7 
1B52 
ODCE 



A 002 1321 

A 006 0CC3 
A 001 14D9 



0C7C 
1520 
0B5B 
1C9C 
0A58 
1CE7 
10 A 1 
12A4 
1822 
14F3 
1486 
12A0 
0F5E 
1836 
1074 
1B60 
1 IE 1 
1508 
0C97 
0F66 
0F83 
14D4 
1C02 
0FF9 
0F38 
144C 
14DF 
0C98 
1A25 
12C4 
10C3 
0222 
19D7 
19D8 
1338 
1C51 
00 10 
1847 
1E65 
1C86 
1D9 2 
1A8B 
1C3A 
loec 
12 28 
0FD1 
12 E5 
12E2 
12DI) 



302 
1332 
0235 
1325 

0172 
0693 



0152 
0721 
0086 
1 416 
0031 
1438 
0435 
0572 
1019 
0701 
0660 

571 
0346 
1C65 
0423 

1 335 
0527 
0709 
0160 
0348 
0358 
0690 
1376 
0386 

368 
0649 
0695 
0161 
1254 
0583 
0441 

1 5?7 
1219 
1220 

63 7 
1394 
1483 

1 C34 
1520 
1411 
148 1 
1280 
1424 
1472 
059 3 
37 6 
0592 
5 l i 1 
590 



0171 

0033* 0034 0034* 0038 0362* 0364 0373 0398* 0405* 0412 



0483 0630* C631 
0426 0478 



0431 0476* 0479 

C195 

0035 0363 0400 0407 

0250 

1256* 1259* 1260 

1293* 1296* 1297 

0170 

0177* 0180 0182 

0297 

0465 

147 

0322* 0327* 0340* 0342* 0344 

0022* 0579* 1004 

1366* 1382 ■'■395* 1431 

0027 0029 

1430* 1433* 

0206 

0540 

10 86 10 89 



0631* 0635 
C632 



1339* 1342 



1262* 1267* 1272* 1276* 1280* 1284* 1285 
1300* 1301 13C6 



0424* 0427 
1342* 



1287* 1290* 



0184 0187 
0T04 0310 0314 0319 
'. ,71 0476 0527 0530 



02 3 3 C2 3 5 
0320 0420 



0273 0277 0283 0287 
0424 0435 0436 0437 



0293 
0438 



053e 

0165* 0334* 0508* 

1145 1159 1178 1192 

0203 

1346 

0524* 0525 0526* 



1212 



01 50 
0444 



;i5' 



0346 0348 0496* 0499* 

0357* 0368 0384* 
0031 

0049 0057 0064 0C70 0078 0084 C094 0106 0112 0118 0124 0129 

0C15 0230 

0031* 0051* 0072* 0161* 0172* 0583 1091 



0157 0223 1251 

0128 

1219 

0600* 0607 

1 J89 



1 316 1391 1442 



109 4 
1377 
1 3 72 
1411* 
1271 
1 360* 
1 364* 
0554* 
370* 
t; 5 3 * 
55 0* 
0025* 



1135 1168 1201 
1378 1379 

147 7 148 1 

1 399* 
14 3* 

^376 



0026 0028 0360* 0364 0397* 0401 0404* 0408 0423* 0427 0474* 
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A014 FILE CONTROL UNIT FLT SECTION 1 



CROSS-REFERENCE 



SYMBOL T LEN VALUE DEFN 



REFERENCES 



LACY 

LANE 

LAP 

LATE 

LINK 

LINT 

LION 

HASK 

MASS 

MAT 

MATRIX 

MAX 

MAY 

MINT 

MODE 

MOPE 

BORE 

MORN 

M C K 

h. K1 

BSK2 

MSK3 

NEON 

NIBS 

NOLA 

NONE 

NOPE 

NOR 

NUT 

OBOE 

OGLE 

ONCE 

ONE 

ONLY 

OPERA 

OPINE 

OPUS 

ORE 

ORGY 

OUTIT 

PALMS 

PANDA 

PART 

?\S1 

PEER 

PEN 

PGRT 

PINE 

PINT 

POND 

PONY 

POOR 

POUT 

PRINT 

PROD 

PSR 

RACE 

RACY 

RAFT 

RAPT 

PAST 

RAT 



A 004 
A 007 
A 002 
A 004 
C 001 
A 004 
004 
004 
004 
004 
004 
002 
002 
004 
00 2 
004 
A 004 
A 001 
004 
003 
003 
003 
006 
009 
C06 
001 
A 002 
A 002 
004 
001 
006 
004 
003 



004 
002 
002 
049 
004 
004 
004 
005 
05 
006 
004 
004 
002 
004 
002 
006 
001 
001 
004 
004 
001 



A 006 
C 001 
A 004 
04 
006 
006 
006 
002 



0F62 
1453 
148D 
1BDC 
0216 
11B9 
1FE8 
13E7 
13DC 
10DA 
1DB3 
1527 
14B5 

11 A3 
1DB7 
14C7 
1CE8 
1528 
1B99 
13A8 
13A3 
1BAE 
124 3 
12FC 
03FF 
16D1 
16D0 
1437 
12D5 
1603 
120A 
1326 
1502 

121D 
14B9 

1 2 E A 
1376 
0SF6 
1 1C2 
1CB6 
14A2 
0CD8 
OEFO 
1446 
0D90 

"3 
1/1.4 A 
14BB 
0A8 3 
1 5 1 C 
187F 
11D5 
12C 3 
021 A 

0E5E 
0004 
0F4E 
OF 13 
0AD5 
OAAD 
OAF 7 
14BD 



0347 
0650 
0662 
1367 
1528 
0515 
1526 
0623 
0620 
0447 
1o07 
0723 
0675 
0508 
1506 
0683 
1 439 
0724 
1347 
1 351 
1 352 
1353 
0550 
0596 
0120 
0882 

oeai 

0676 

0588 
1005 
0516 
0600 
0707 

0542 
06 77 
594 
0609 
321 
0457 
1423 
067C 
177 

3 20 
0647 
0223 
0779 
026 7 
0673 
0042 
0719 

1 06 1 
0524 
C5E2 
0586 

C273 
1485 
34 2 
328 
0C59 
0051 
0066 
0679 



0475* 0479 0551* 0552* 0627* 0o28* 0641 0643 1254* 1255* 126b 127C 

1277 1291 1334 

0369 0379 0383 0389 039 1 

0122 

1358* 1397* 1406* 1407 

1320 

0220 

0615* 0618* 0623 

C617 

0451 

1370 

0045 

004U 

^218 

1U14 1445 1446 1461 1462 

0042 



0723 

0032* 0361* 0399* 0406* 0425* 0477* 0629* 1335 U4C 1340* 

0477 

0032 

0629 

0537* 0533* 0561* 0562* C563* 0564* 

1198 

0881 

0052 

53 

0939 
0562 
0542 
0237 
0516 



0062 

0949 0957 0965 
0564 0565 0566 



05d7 



0240 0241 0242 

0626 0637 1343 

0021* 0146 0601* 

0073 0091 

0546* 0547 0547* 0555* 0558 

0605 

0488* 0489* 0492* 0493* 0502 

0443 

1460 



0243 0244 
1374 1447 



24 8 0323 03 31 0356 
144S 1467 1478 



04 3 9 46 7 



1453 



1456 

0305 308 



0619 

01. -35 02 04 



245 
•332 

126 

1 8 I 
0061 

0252* 0257 0267 
127 
03 



1466 1475 



201 



05C5* 
1 4£C 



1 140 
0222 
0541 * 
148 
1439 
0192 

3 39 
325 
091 i 
7 7 8 
852 
0067 



1154 1173 1187 120 7 



0152 022i 0572 0576 



3580 0602 1249 1308 1312 13rf7 1435 



1 324 



0104 
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A 14 



FI! 



.-CNTROL UNIT FLT SECTION 1 



CROSS-REFERENCE 



SYM30L 




LEN 


VALUE 


DEFN 


REFERENCES 


RINK 


A 


00 4 


0F1 A 


0330 


164* 


0333* 0366* 


ROPE 


A 


001 


14C8 


0684 


0056 


0066 


ROT 


A 


002 


1687 


0853 


0068 




RTNAB 


A 


002 


1517 


0715 






RTN 1 


A 


001 


OA 10 


0C12 


0008 




STN2 


* 
.-1 


002 


13B1 


135 5 


0014 




RT1 ADR 


A 


0u2 


OA0 7 


0008 






RUBE 


A 


004 


0FF1 


38 4 


0382 




RUNT 


A 


001 


168 6 


0854 


0853 




RUNTAB 


C 


001 


01F1 


1493 






SAINT 


A 


006 


106A 


0420 


0202 




SALT 


A 


004 


1062 


0417 


0201 




SAND 


A 


002 


1455 


0651 


0172 




SAT 


A 


2 


131F 


1324 


0051 




SATE 


A 


00 2 


131D 


1323 


0072 




SA« 


A 


002 


1457 


0652 






SAY 


A 


001 


14A3 


0671 






S 3 Y T S 


r 


301 


0203 


1 489 






S3YTE1 


C 


00 1 


0209 


1490 






SCAN 


a 


18 


1 3C3 


06 13 


0529 




SCR? A* 


A 


004 


IAEA 


1304 


1261 


1264 1269 1274 1278 1 


SEPAL 


A 


04 


11 1C 


0466 


0468 




SET 


A 


00 2 


143F 


0680 


OC81 




SETTLE 


A 


002 


1E5 3 


1518 


1470* 


1 473* 


s :■•: ask 


A 


004 


1019 


396 


0200 




c* u tr v-. 


A 


001 


15C4 


780 


0779 




SHOP 


A 


006 


1116 


0465 


0209 




SINE 


A 


006 


1 1AB 


0511 


0219 




SKOG 


A 


004 


1009 


0390 


0386 




SLAB 


A 


06 


1272 


0562 


0585 




SMART 


A 


008 


14AF 


0673 


0511 




SMOD 


C 


001 


0202 


1487 






SMOG 


A 


004 


0F87 


0357 


0351 


0)53 0355 0388 0390 


5MSG 


A 


016 


1E6 3 


1519 


1429 


144 1 


S N A G 


A 


4 


0F7F 


0355 


0349 




SOAP 


A 


004 


149 1 


0663 


0097 


0108 0114 012O 


30 7T 


A 


006 


03 3D 


0080 


0974 


132 3 


SOLAS 


A 


06 


03C3 


0108 


1 132 




SOUND 


A 


006 


03 El 


0114 


116 5 




SRT 


c 


001 


0200 


1486 






STALE 


A 


002 


OD12 


190 


138 


0189 


STALL 


A 


00 2 


OD10 


C139 


0186 




STAND 


A 


004 


0D03 


188 


186* 


0187* 


STAR 


A 


00 4 


1268 


056C 


0046* 




STAT 


A 


"04 


113 4 


0474 


0211 




STEP IT 


A 


00 4 


1CFA 


1 445 


1 422 


1 45 2 


C "p *-\ V jr 


A 


04 


0F04 


324 


14 7 




STOP 


A 


004 


1CF0 


1442 


1 444 




SUDS 


.5 


004 


0A18 


016 






SYSMOD 


c 


•01 


0200 


1 328 


1 273 


1281 


TACT 


A 


04 


0EC7 


307 


196 




TAN 


A 


003 


14F9 


0703 


0247 




TAP 


A 


02 


14C1 


0681 


110 




TEL 


A 


00 4 


1D0E 


1 449 


1 362* 


1 401 * 


TELL 


A 


004 


1CDE 


14 35 


143 2 




T EN 


A 


00 5 


1483 


0661 


0179 


0359 0543 


T» V CfJ- 


r 


00 1 


0212 


149 1 






THAT 


A 


006 


1474 


0657 


0075 


0115 


TH F * 


A 


06 


147A 


6 5 8 


003 3 


0121 


T3IC y. 


A 


006 


146E 


0656 


06 9 


0109 


THREE 


A 


002 


150 5 


071 1 


30 2 




TTM E 


A 


00 2 


IE 50 


1516 


1 470 




TIM OUT 


A 


004 


1 D6 8 


1471 


1 36 5 * 


140 4* 14 79 


T I N ~' 


A 


04 


1 183 


49 9 


0215 




TOAD 


A 


002 


1515 


0714 


292* 


029 i 


TOM 


A 


1 


17 30 


0916 


0915 




DATS 


i 


12MAP 


7 


1 APR70 


06MAY70 01JUL70 01MAR71 


EC NO. 




571512 


571516 


571513 571524 571573 
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SYMBOL T LEN VALUE DEFN 



REFERENCES 



TON 

TONY 

TOOT 

TRACT 

TRACY 

TREK 

TRICK 

TROT 

TRUCK 

TRUST 



004 
004 
004 
006 
004 
00 1 
006 
002 
007 
004 



1D45 
150C 
1C52 
0EEA 
' F52 
, "C3 
1468 
17C2 
1462 
OC 3 9 



TRYST A 004 0C64 

TSTESY A 004 1D7C 

TST2 A 004 1A9B 

TURN A 004 1219 



TWO 



UPNOW 

URN 

UTAB 

VARY 

VASE 

VIC 

VICKY 

VICY 

VIF 



004 
001 
C01 
004 
006 
004 
004 
004 
002 



1CAB 
1853 
0232 
116B 
0315 
0E3A 
1A7B 
1A51 
14C3 



VIRG 

HAD 

WARY 

WED 

WHAT 

WHELK 

WINE 

WIRE 

WIRY 

WORK 

XR1 



XR2 

YELP 

YORE 

YORK 

ZEROS 

ZONE 

ZOO 



002 
004 
002 
004 
006 
004 
004 
004 
004 



14CA 
1177 
14CC 
1C19 
112E 
1183 
1193 
1193 
101 1 



001 
004 
002 
004 
004 
004 
004 



0002 
OFCO 
0C69 
1C 'D 
1b13 
0F5A 
1303 



1463 
071C 
1395 
0319 
0343 
0976 
0655 
0975 
0654 
0133 

144 
1476 
1284 
0541 



A 003 1505 O708 



UDTMSG A 024 1B39 1326 

UNA A 003 OAOC 0010 

UNB A 003 OAOF 0011 

.:iNIT A 040 1324 0597 

UNPACK C 001 021E 0587 



1420 
1C41 
1492 
0488 
0072 
0263 
127 6 
1265 
0682 



VIPER A 040 1330 0611 



A 004 0C31 0130 



0685 
0492 
0686 
1382 
0471 
0496 
0502 
0505 
0393 



C 001 0001 0666 



1350 
37 
145 

3 97 

1 32 2 

34 5 

1 318 



1363* 

0080 

1385 

0198 

0341 

0975 

0063 

0082 

0024 

O05O 

0130 

0133* 

147 4 

1258 

0040 

0531 

1 373 

1 31 C 

1263 

1257 

0559 

0036 

1 426 

1 359* 

1 109 

0212 
0880 
0261 
1. 66 



116 

0019* 0039 
0374 0413 
1248 

021 3 



1369 
021 
0214 
0216 
0217 
0199) 
0015* 
012 3* 

35 8* 

1 37 0* 
56 5 
138 
0394 
1321 
0167* 
127 5 



1402* 



0509 0517 



0103 

0048 
C05 8 
0159 
0140 



0054 0090 
0060 0065 

0144 



0071 0079 0085 0096 107 0113 0119 0125 



0174 0264 0266 0279 
0533 0639 0645 



0289 C299 0316 0375 0414 0433 0485 



1265 1238 1357 1367 

1294 1384 1396 1405 

0564* 0565* 0566* 0567* 0575 

0275 0235 0295 0312 0371 0410 0429 

1398* 1418 

113f 1171 120 5 



0481 



0556 0633 130u 



0173* 
0432 



0020 
0123* 

36 2 

1 37 3* 

0142 



3 35< 
123 2 



0178 ! 
048U 



0258* 
0529* 



0045* 

0177 

0516* 

1405* 



5 1 5 * 
13 3 3 



0052* 
0240 * 
0549 
1406 



133 b 



0259* 
05 32 



0262* 
0532* 



0265* 
0573 



2 78 
06 36 



O^SS 0293 0315 



0061* 
024 1 * 
0580* 
1412 



00 6 8* 
0242* 
0681 
1413 



0074* 0082* 
C243* 0244* 
1357* 1358 



00 92* 
0302* 

1 39b* 



10 5* 

3 03 

1 397 



0111* 117* 
3 04* 0307* 
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THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
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TAOYGYAS 3/ 



JAQA0140001 



T^-ZDYI *A S $%<HAFSKa>2A. 2<ES MH 3FW EI4<I 1 + 0D#D 4 J Y) J H*KGT2GB50 33AM/C <NIJJS<HH K63U 73XA014Q002 

T + -Z"*A.E0I HOC- SD_? D ZQOH*H-00 ADX*.1L 03F9-$D30 F:K<A/>UF:P /1_ KOH*BG-< $Y A+MOH* KF* 8,HA0140003 

T + -D:/1YEC <^9AL G| 3 : - OAC (*M_LM AEK+SA 1 1Z | | DNH&O CEKMMQ JEGCIT /O 9C DK11%-.(SD04 AC (* Q&DA0140004 

T+-,5E.*< 1KVEFC /1|KC <-9ALH0H* <W<EGCCU< 1"UE.| /009 (6DN00O AC ( * P_OOCEKMHH SBGCIT /OO =laA0140005 

T+-*0+50CG=6M2 AC (*M?LM AE Y*< 1 « VEF3 /02Q0H*O 60 ADf *$G60 AC (*fl>L M AE23< 1HVEG. /1| DC < L/4A0140006 

T+-_ ,G=£MW*5GCIT /009C <-.9A.»KC D <5 1 K" (5 DP0-OCEKH K;<3GCIT /0O90H* .Q3BGF/Y< 1"UEIU 23/ H 1CSA0140007 

T+->WH60CEKHHQ-0 AC { *n>LM AF I *d>- AL DOH*<WCO S + , /OO 9C <-9AKJ| ^703 =G'8-730JG> a" 1# 4C % 113A0140003 

T+-?/G?<;* OCEKK SP-OAC (*M?LMAP.T /0200H*<+60CG=& HU£0CEKMH$ OAC ( * HOLflAFKG /02Q0H* O 60 C9 A0140009 

T + -0* 1"UEID< 1.". VEGH< &3FE<<5 JV XO H*<W<BGCCU< 1" UEID< lMVEG-< 63 PEH45 j:-'_0H*<H<B GCCU #HUA0140010 

T+-1PC <-9AJFC D <51K# (5DP53BGCIT /0G90H*EFT6HCF- A Y-1 H< E< K : "♦/ hi TEIM Y01 ZO EH<0<B GCF6 1Q-A0140011 
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T+-4H/1H?0H*EF?< A0.OE (4DCB *LXA + 1A/DNIJK.+ H36*B 6C*D8 JLBi/BQIPY "16-HDU60AC68 (D 8 AC58 R.0A0140014 



TB&4KE(X /04KCJH 



IYXA014001S 



T*-5*0H**P%3GCXX /0:Q0H*+_23GC%- /0 # | 0H»+ : 3EBGD AG /1 POK *6 QXBGEF , /I A4 OH* (U< BGCRC /I 8Z8A0140016 

T + -6IY*BGD5, /ID KOH*JE*EGDK# /ID 80 H* J EiBGDP-. /I F COH*JSSBGDR| /IF $0H* J Y tfBGDE ? / 1F 90H* NH6A0140017 

T+~7DD*P /1GN0H* HF%Q) C*B- 33BG SH - 338GFSPP6) $G6 *G M6<PR6)$B6FA 0%G D6 (^A6 *GH0 ; | E6 60 D2M #S3A0140018 

T*-7"E(, /07#C H#ALR<E<M#6d D2.1 N % AC*^ /07?(-D N TUAE6H6 JMB(-D N TQAE6. /O 3QC H H'/G 1aUA0140019 

T + -8: = 6SSE |QN % AC-G '07. ( - + LL0 SJ,AY 9+0EH+NT4 EJ, -69H | (MLTC 3 ND8Y8 &8-OIZ D I +- LTC- OK3A0140020 

T+-95D 8-01 KFL3 YDS, /1HR0H**KTY A E J , /0H$ + / NPXB GC/a) ( 1"UE(7-67 T0H*BG-5M7 J+-OH* KF* 62XA0140021 
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PAGE 16A 

A014 FILE CONTROL UNIT FLT SECTION 1 

OBJECT CARD LISTING 

C, 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL t! 5 THROUGH BO CL 81 THROUGH 96 

T + -:0/07T<HPND04 AEJ<rt63BAC; ? /OH ; /L$D:3 /1FR0H* (:3BWEJK( JKNE(? -67, H*BG- HM 6 1 ♦ WOH* G2QA0140022 

T + -#,D/X /07, (-D NCTEAEJU5 JLSOH* <6CMAEJX /03QC& ; l'ALEO HD ( tc&BG /« AE(YLS<BGD/X /07 ?C ITU AO 1 400 2 3 

T«--5)WD2MM600 E(H M6TVdEJ4aJAM-.C H M4JMC + -«4|HSBC% DEJ4IAAM-.+ DM3"H 5G%BGC-a)| A<VES. 68 KR-A0140024 

T+- , /SC2GCUdA0' -| *|03BGC;%+ 1L KE(H8 JLJOI |LTY HE J" / C K+O-NGJ F T EJ3 1 Yl K-0 H* | 5*8 GC"U ^$HA014002S 

T+-=*0H*|ACS C", 2DAH8HALS5)/ L + B M3"H6C<8GD(| /0= G0H*£4 3SHC#*6 JE B ATDK- JK. <H<K 7L3 -F9!J JT*A0140026 

T+-"PG $Z5. /1_ KC& $YJ.) D|0C0 GC 1 ? /08|0H*|XB GC6K4B "M0H*BG-E $ YJ +CCH* K F* BGC ■ D 3BAE 9$-A0140027 

TV K4< SC = G /0' S<ESKW30JG>C /0" 1 OH* | QT5 HC# ? /0= |QH*S3L-HE(C D = G0H*|QS3GCd- /0' 5|< ;DHA014002S 

T+/A(E+# /I )|D M#TETD_4S />V||4 $W*BGF5H8 /.)0A (a) 3FTE + 30 Y 1 . ) | H $ZL3'F9X /1_K+ H K7» Kt8A0140029 

T+/BHD 730H*BG-D $ YJ+OO H*KF*BGC-< 1ZAK$OH*(300 CS M6 S3GC ; 10 Y 1 . ) C * $ZJLE | | aim* 3GF5H ( AH 1RSA0140030 

T+/CC7J>/0HD (#S3 G /8 AF : DLV$ EGD/X /07?C H:JLEC K : A L EC K91LSC M9/L $C SK9 JP1D | 35 S:T0 NI <*A 01 400 31 

T+/C=AAL%+ DM8* SD&. /O'H+H M9?H S3TS E+T2D ?2/00 : D ALDO H*66T YH E+0 1 Y1 L, < E<M#&8 IE+U M:* * — A0140032 

T+/D9/1B"| *64<B GC;%d> A"U0H * (<Sa 3 GF/Y< AMSE(Y1Y1L +C0DNF1K5C DJG<E GC;d)< JD7E(? /1D 4<HH :# EAO'1 40033 

T + /E4D_%0Y 1.)C H $ZAL*C H$HA>Y0H* »H-4BD_0$ Y< BAC; | /OH; 1>-D9L /1H R0H*(83Z C?*:& # #0H* I, A0140034 

T+'F?C-<#5 #7+4 + =3>BGC-<a/0":0H* (330GC", /07 3+ 2 +'dBGC-<:H #7CH* (S32GC5" /0#DC U K:J6 7A5A014003S 

T*-/GD,32GD(C /1B "| H*| 03C. Are . /O # D< E&M'J 3FUEIH1 Z AK LO H* (<£ 30 AD; . AZ AG /♦0DJ3T4 E(, -57 ?CAD OJHA0140036 

T+/UVT>* L03-AE(, UAHPC DLYA+/0H* KF*3GC;' SBCN6D H : A. = a> Y ; + | *~L I Tl GS3SHDX| /KWA-D K315 OQU10140037 

T+/I-S31 D?<a>SA. 1| K: -0NDMIK:-0 D_CLIL5AD M< 1. SG=60 Y /. $ <H<K 7L B WDX10ZA.YC K:/# -OH* 4K*AO!40038 

T + /H$ /8QD>YLKB C,V%-< 1.:EKG<AJ< BD-Ysi>5A.6C DLH/H HC DLGAHHC DLE/H HC DLCAHH| D K'C1 D?H 4Y0A014OO39 

T (J. JUEHKB3F-D/. /OHE-IULKBG /Y A + J+0| *.P<HA /Y 4 JY)C *5 <BGDXS <AJ.3EHC /1I2 CH4A0140040 

T A.O 8A0140041 

TBA.3S<PR6) $R&| ? =36*0140042 

T+/(» C5HDi%aA1H ;0H*BF*C:D7E- *B GD3/ 1)XR r >_V S ) R . 6 ( h'j 1 4CN 5U_ OUC E6 DA 8> | A8 = LSoD; = < 6.HA0140043 

DATE 02MAR70 01AFR70 06MAY70 01JUL70 01MAR71 i^«OG ID 0A01-4 
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I R«l "AT'JTENANCE DIAGNOSTIC PROGRAM PAB T NO. 5129611 

PACE 17 

A014 FIL" CONTP'IL unit flt SKCTION 1 

ORJECT CARD LISTING 
CL 1 Tl-'RO'l:;!: If. CL 17 THPO'JGH 12 CL M THROUGH 48 CL 49 THROUGH bH CL 6 r > THROUGH 80 CL b 1 THROUGH 96 



THA+H6) ( 1_|D6DC D 1 % I 3 S DCD 1 % LBS< L ArfolE &<PX5a?C8SP D6DA &DA &D StUA0140044 

• * ■ • • • 

T+/I ,6(r06<.KKUC 05«CS0SGN6<TI856 HD"Y< V'UED, /1| *( I: -GCG=SMJT F WEI73Y C/1|,0H* L9J& KJDA0140045 

.. ....... 

T + /5WFA.JPC ".'A?! 3<HHKh )3TD_4< /> 0F:8cS A>VC Q$ZA> V0H*$flSBG /8CF: LV 3BE|QN % AE33 /1H -.I-A0140046 

T*/J/F*3GF/YRDA. $0 A ' L • L- AD_ , 2!) I. /1HR0H*H|0 HO F/i*P<PNlEl *F/YMO )"02-C 0d>) OEUA0140047 

T+/K*3|.0a|C0<8| | 0<i|CC*|LCS|C03|P Oi | CO $ | COS | CO '« | C OSICOdllCOdl GOYO E6C""S M ;8Ad »ca>A0140048 

T+/LP8) XE1UC1 5 FAT30-C "A F/ ED YSH/ :H Y-FT E<B < & EH LD-A0140049 

7 "j L s .... ---- .- 7Z*A 01 40050 

T<AM + -------- ....... ^^ . f, - AA & =I4A0140051 

T+/S< A- D NHD 3MV9WH/ SF- . ♦SHQF-8 AF?3A F- EH/DE 8B"0 CD BFAY 3H6A0140052 

TVOg"h:S/-e" ti :OA-E H:0/ E H :0— E H:8/-E H : 4/~ E H: 2/-E H :1S-E H:Ot-E H :0Z- MA A0140053 

T+/PBF _ b*SIQF- 3+XH8F- E+XH*F- B+XHEF- 3+XHSF- B+XHQH/ EC-DE < E"0<E YD AY BY H,JM "S4A0140054 

T+/PMD 3HV9HH/ SF- . +%HQF-8AH/D E"0DE R + B- AY CT,EFAY+ JY J, " JYD JY J,# J # 6 KY J/XA0140055 

T+/Q3DAY C/Y+ J, " | 1$" F>a> AA/3-I/Y 0A$?I/." J,? JY JY E+ 6F- H*XH QF-8AJA E Y : 0/- EC- D 9.4A0140056 

... • 

T+/P3F- AF73AFS- AF- AF_*AF?MAF- ♦ F- YAF-QAF Y8 AF IJ3 AFS8 AF/8 AF-d)AF - 8 AF- . A/#,F-8AF-C 4F?a> MQaA0140057 

T+/E> J,1 J,d> JY CSY F- AK- r 7EY/ VI;RSY&H/Y B3, BFAY+ JY 1 ," 1Y AM SF- F- Z + XH QF-8 ; 4A0140058 

T + /$Z JY 48 H/DE"0<CCJ,"AD8 U H-DE EHB1K 043 B11V9WH/ SF- . +SHQ F-8A H/DE"0E + - «H*A0140059 

T+/*U E HE"OE + - AY J, 7 JY CT, BFAY*- JY AD8 3 F- CL-Y E 8: 0/-EC-DDDK6 OL-Y 3KBA0140060 

T+/)-.A F- ' ¥.-. NE3A 5I;RS8A- G AJ# CKY6F- H + XH QF-8AJA E Y:0/0 EC-DDDJ," JY JY -i 3LMA0140061 

T+/;EG=&+F (+C- C ,C FB YSF- 8 AH/D E"0DE DEA D+F ( *C- CECFBY6F-8 AF- CH/D+F <:0/- DDAY 7$ A0140062 

T*/-.NC-DE HEA D DD68Q 1Y Y AL-0 B Z- 2YAF- AL-0 - AHB34P04 CMV9 HH/ > Q A8 M ;6 4 EC- 6HSA0140063 

T*/-&B/»UF-6B/" /"/ S AQE **FG> =F- F- 8A E 6 D HSD L"F- CK-_ $A/#-B/" U F?3A F-6 AF?Q )QOA0140064 

T+//.JYCAY*" JY AY E Y-«8JH:0/- DDAY+ JY /ZM KY JF?dAFD%AF?OBF- 6F-8AF- E- K5 I KPHQ ;E8A0140065 

DATE 02MAR70 01APR70 06HAY70 01JDL70 01MAB71 ?ROG ID 0AO1-4 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5129611 

PAGE 17A 

A014 FILE CONTROL UNIT FLT SECTION 1 

OBJECT CARD LISTING 

CL 1 THROUGH 1b CL 17 THROUGH U CL ii THROUGH 48 CL «» THROUGH f> 4 CI. 65 THROUGH 80 CL 81 THROUGH ')i> 

T*/SFH/ 5F- .D/Y ♦ JY /ZM J," J') , J , j) SY-9AH2C-D E H&O CE"0DEZ0E I" DHG=6KF- &F-8 AD/Y 4.«A014006b 

T*/TA"0DFr.= E"SD E 8FG> KFIT-A28 AH/ E"0r ; EG% (F- -C/-5F- VC/- SK/. DF. U+ FD* : 0/- EC- D -H-A0140067 

T+/T3F?0AF-<AFV- AF70A FV* AF?& AF- MB DCJY HC,BF H QM2YSF- J6 -> M B.-A A/Y AY EC, BFAY 0CdJA0140068 

T+/U7C-DE HFS D ODJ," JD, J, 3 JY ABYAL-& E E HBS<R H-8QJ3 , B F 6 .JM080-1YK JY "1, _ 68 K-3A0140069 

T+/V2FHR: AY A Q ;8C,3F 8ciC8v-1Y F JY "1,9 r .8Q/J8 ;-DD A," MY . SJ V YC//G* *HOC// LC/- 4 MA0140070 

T+/W_-.1YF JY "1, 9 &8Q/XY F- DA/# - + XH CT/ 'ZC//"F/H AF-C "F>U AC/SFL- A: KY F?a)AK-? "FES K.QA0140071 

T*/XYC//G+XH0I-8 QM08Q-.1YJ JY "1. > &3Q/XYAL-B D A," KY<GJXQ6 H SH/ E"0( AH8ASB0 >/Y B83A0140072 

T»/YT 6:0/-DDAY f JY 1,"AF&SF?2 |F-8AI E ♦ E"1D D A," C K F J, " MY<<*BG /YNOH* BHD OHMA0140073 

T+/Z; LBSD_X0Y1. )<-H$HL — B-# DAD $| DSHL/ F2C UA, D| <IHL-AB-3 DA, 5+ HHC | H6H 30GF?D 83AH. K33A0140074 

T + /DR63 CF>Y8 J. *3>/ -|.'.H$HL7B -C -J , DO H*$B30 SF2 D dEA.iOl I:»BGFM& 3E/Vl*H3 <.bAF0? /1Y )JXA0140075 

T+/,M:T0IF2D8SAS -0A E:T0&F2D9 OY <0I E: TO KF2D8B A . $0A E:TB:F2D8 &Y \ j)/ 6|A6$HL/ F2C DAY M$<A0140076 

T+/X| :%BGF«63DU /+D $H<ESF>, /1Z U OH* BG- D$ HJ_ JOK* B FSDQF3W- :%3G /Y CFA_JOH*BHDCD<EQ $E"< 4-<A0140077 

T+/_HY - /0HOF1- 33UH45 9<L TF,<L01;I 5)$TS(L A8a) | H5 + . E5; . E8XP ES(-.A1a)N • -.P05<$ C9D OKXA0140078 

T*/>E5<GP8WCX9 3& HF9D3 J>?C <$XJ- ) +H SV7H&B3S F9, 2U & :- A>SC-<$H J> RC-<$ XJ>) C-*$ ZJ> VC- 638A0140079 

f*/? F:3N T4/F:" -J> + 0H*$Q KG*?#7"=#"a) -C ""d)HAB-04 J?- + 1 *,C% EJ*A0140080 

T+/?#DA2# + 1 *?3* r,G6d#DA5F*1 ) $1% 5G0J#DA2)+ SHC< SF=T /1OR0-H)>C1 .GUt /12F(-HNA6a> GU8 C.As)A0 1 40081 

T+/06EC. J?0d:D A< E<; RIFTGWQ1 Y1 9 VJH <FSGF48DA2 ) OA $B3 — E-# DA1 K0H*$BalBG /,EDJ1 JYC< J XA0140082 

T+/1 10H*BHD 30H* *.*|Ee(LOKN 5)$ TS(XE3*PT+/ *X*H AB-34 J7-. + / *,CY SG.%:DA2"*/ ) C3 Y SGMQ 4LtiA0140083 

T*/2X+/ ) SLYSGOX 3 -Y|{ H$7a)BGF'0 43A6N. ) X& % A9 J LFTG$- 1 Z/6-3: |&<)X*BDGH? /14 XHH 2,<A0140C84 

T*/3XGR*8&A6Pa/A D J | H) _LBSGR*0Y16 R OH* 8G-&) W J9T | . *9T-SGI72C -3YA3 H||Dj_*BG /,AE/6 5 FQ N0-A0140085 

T+/4S0H*BF-M| GH| /OHSYFS /130<E< )_3FTG$-| A6)ESH | A9 JEGH0Y/6P OHD ) HT/ GR-. DA3:0H* *_TU :00A0140086 

T*/5)6A6P0A ) .%B GG.Q0Y16R+ &)U|H GA<BGG. Q1 Y1 67<E< ) >CBSGR*85A6PSZ D0H**_-a GR4N T4 GR4 7THA0140087 

DATE 02HAR70 01APR70 06HAY7O 01JUL70 01MAR71 tROG ID 0A01-4 
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OBJECT CARD LISTING 
CI 1 THROUGH 16 CL 17 THROUGH 52 CL ii THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 



T + /6J0 D).-0AGV< ; *C 3SG R*0 Y 1 6R* D )VSFSr.P3 /12b+A )Va3SGSH| J9LE&. J5 Y0H**_XBGGRH 



20MA0110088 



T*/7L 



) H%T It.*. Pi *EDG<PR6) $ R&<LR2 ; PES ♦* D 



D -MEAO&HA Y FBOQ(B 8HD YJB/< <E 9I*A0140089 



Tt/8 + h-i?C/'J5F/ * D/4KG 1 S-EBHOH 10 VF30QH/0, G BS-< B 4 ICH U + K-: HC8X | 2 1 C<DS0 KCJI (D43 LT/ K|E< L:3A0140090 



T + /9I|E) ODA*JE5 i )QK/SKFH<R41 r MF1 &) E/50G5--H3FEH) YT7BS* I/8W FS/-HH DYS, S . >&_I33V. 6 Q1E 0-SA0140C91 



TF19V1DCV/- A/0 DCS83GT9+I 9-- X9=--X9=; 



2D-A0140092 



T A«- 



;3OA0140O93 



A"/ 



T 1"Y G* S 



E"" ■ *E7* = -.DC"PH$ ="7M57 | | C Y% ASC R A SO Q 



;T3A01 40094 

3#UA014G095 

16570501700 3027 1". 8A01 40096 
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